怎么没有二次开发的？

ZWX168

尺寸对齐的程序，高版本的CAD有此功能，可低版本的没有，自己编一个，
只能对水平、垂直的标注有效！！！！！！！
0 ?+ e1 n6 E/ B, Y; a: \8 O( f+ V3 N
* X1 c9 f; B' `& w" x) w# d6 ~* b不够完善，那位大师补充一下
/ o, [( ]! Q4 P( m2 v
(defun C:DIMalign()
' k  Z! A( G8 m6 o0 k% j(setq  DIMENSION (entget (car (entsel))))
(setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
(if (= (cdr (assoc '50 DIMENSION)) 0.0)
, Y' Y; E5 b2 W  v(progn
    (setq Y (caDdr (assoc '10 DIMENSION)))
    (setq X (cadr (assoc '11 DIMENSION)))
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
' N8 a  [$ z; [5 Z+ G. k    (entmod DIMENSION)
    (setq Y (caDdr (assoc '11 DIMENSION)))
+ H3 s# S: U4 B& L    (setq SSL (SSGET))
    (setq N (- (sslength ssl) 1))
9 n1 A+ y+ v( W    (setq test 0)
! z! v% _1 A/ R1 O    (while (<= test  N )
, o) p: G& w1 ]8 p1 P' g    (setq DIMENSION (ENTGET (ssname ssL test)))
    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
    (setq X (cadr (assoc '11 DIMENSION)))
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
    (entmod DIMENSION)
4 K' h/ d; P( M. c: P5 X/ ]  t! O    (setq test (+ 1 test))
    )
  )
(progn
    (setq X (cadr (assoc '10 DIMENSION)))
    (setq Y (caddr (assoc '11 DIMENSION)))
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
; X5 Q  {# R! X/ B) q! u9 L$ k. c    (entmod DIMENSION)
    (setq X (cadr (assoc '11 DIMENSION)))
    (setq SSL (SSGET))
    (setq N (- (sslength ssl) 1))
* B' v4 U8 O5 F7 J" w    (setq test 0)
- `, I: b, x# q3 h" h4 O/ d    (while (<= test  N )
/ V4 m% b- Z' l) X& l" m" E    (setq DIMENSION (ENTGET (ssname ssL test)))
    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
5 n/ X, o+ J  I( w7 j: j* K    (setq Y (caDdr (assoc '11 DIMENSION)))
  k2 j+ _0 h. U" s" \9 U" i    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
- m4 [; _6 |3 K4 M/ C: Z    (entmod DIMENSION)
    (setq test (+ 1 test))
    )
5 E4 A9 ^* ^- v5 u1 T- H- f  )
. W4 q" i  h" D' ^' w$ W  o)
- M$ w+ [( X9 i3 v  O  n; {5 b)

陈微积分

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

ZWX168

公司收到CAD的律师函，要改为国产软件，垃圾
: Y& u; h  A$ Q- r别了，我的CAD

ZWX168

学习VBA、LISP不需要什么书，我几乎没看过书，他的帮助文件比任何书都好！
1 D3 ?9 a) G7 n% U那里有大量例子，尤其是VBA的例子很实用！！！！