怎么没有二次开发的？

ZWX168

尺寸对齐的程序，高版本的CAD有此功能，可低版本的没有，自己编一个，
! i5 r: C+ Z/ ~只能对水平、垂直的标注有效！！！！！！！

+ A: P3 `+ `1 e不够完善，那位大师补充一下

  q7 i& E9 H, x6 e0 j) E. C9 J(defun C:DIMalign()
(setq  DIMENSION (entget (car (entsel))))
(setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
- F2 k, l$ ^0 Q. f+ P(if (= (cdr (assoc '50 DIMENSION)) 0.0)
; e2 J3 R+ m; r" s& ~(progn
    (setq Y (caDdr (assoc '10 DIMENSION)))
7 D  V0 `5 V7 h9 t# A9 p6 @6 m    (setq X (cadr (assoc '11 DIMENSION)))
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
    (entmod DIMENSION)
    (setq Y (caDdr (assoc '11 DIMENSION)))
! ?4 T5 Q0 y. X, z4 ?! S7 q6 K    (setq SSL (SSGET))
    (setq N (- (sslength ssl) 1))
8 S3 s" {- a+ u5 ]    (setq test 0)
    (while (<= test  N )
) i$ F5 R# w. F    (setq DIMENSION (ENTGET (ssname ssL test)))
7 H2 R& B: O$ G    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
3 ?% f8 i( c- `6 L    (setq X (cadr (assoc '11 DIMENSION)))
5 \; i7 ?) V5 O0 R6 Q9 }0 m  |$ F    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
4 j3 ^* g+ J0 X8 M    (entmod DIMENSION)
$ d: r  e, L, K: @6 k6 f    (setq test (+ 1 test))
0 y: D4 y( E  t, T- g1 p  Y! s    )
3 T$ a6 s7 @7 h/ q& T  )
(progn
( ]( R1 @( p! V" D    (setq X (cadr (assoc '10 DIMENSION)))
( j; e4 ^& A* e    (setq Y (caddr (assoc '11 DIMENSION)))
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
    (entmod DIMENSION)
" y! h8 G& h, `0 K( i# @7 ]8 n* `+ ?/ h    (setq X (cadr (assoc '11 DIMENSION)))
+ O, m' A1 E- J# z' B" D    (setq SSL (SSGET))
! y" ~7 ?, [) H    (setq N (- (sslength ssl) 1))
    (setq test 0)
" Y" U) \5 w1 [9 u5 t7 ?    (while (<= test  N )
    (setq DIMENSION (ENTGET (ssname ssL test)))
    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
    (setq Y (caDdr (assoc '11 DIMENSION)))
. B. I- K+ E; p2 w1 E, W* L* Q    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
* ]8 g- f/ R8 t4 l  @) h    (entmod DIMENSION)
    (setq test (+ 1 test))
# C0 ~/ [4 x4 N    )
  )
)
)

陈微积分

能不能比较一下VB,VBA,LIST几中开发方式啊.并介绍相关的书.谢谢了

ZWX168

公司收到CAD的律师函，要改为国产软件，垃圾
别了，我的CAD

ZWX168

学习VBA、LISP不需要什么书，我几乎没看过书，他的帮助文件比任何书都好！
! g( _( G+ L* p* V7 F. {那里有大量例子，尤其是VBA的例子很实用！！！！