怎么没有二次开发的？

ZWX168

尺寸对齐的程序，高版本的CAD有此功能，可低版本的没有，自己编一个，
9 s2 f" K, L: F9 b' K7 @只能对水平、垂直的标注有效！！！！！！！

不够完善，那位大师补充一下
9 ^5 h0 L# A& u0 y
5 ?0 f) c  r" S5 I- Y  R! `; d(defun C:DIMalign()
(setq  DIMENSION (entget (car (entsel))))
(setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
4 Q1 R6 Q4 H7 n7 Y. n& Q(if (= (cdr (assoc '50 DIMENSION)) 0.0)
# `( U2 l2 j2 ^& a7 Q(progn
9 V" F. \3 Y) t8 F' L( l4 ?1 @# W/ `    (setq Y (caDdr (assoc '10 DIMENSION)))
    (setq X (cadr (assoc '11 DIMENSION)))
& @0 z$ L6 t& y( X! C) s6 [+ @    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
$ G9 p& `# y$ Q2 k& i- q# n9 O    (entmod DIMENSION)
4 o' X5 T( l; h- P: S* N9 u    (setq Y (caDdr (assoc '11 DIMENSION)))
    (setq SSL (SSGET))
    (setq N (- (sslength ssl) 1))
8 f# ^0 x" G9 W" v    (setq test 0)
    (while (<= test  N )
    (setq DIMENSION (ENTGET (ssname ssL test)))
; K8 C( }/ {4 @+ H! g    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
    (setq X (cadr (assoc '11 DIMENSION)))
" \6 c0 D, V4 Z( c- A" M    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
( h  C, S$ T$ b    (entmod DIMENSION)
    (setq test (+ 1 test))
    )
  )
(progn
% Z" w% c( R1 j( U$ ~; r    (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 ))
1 a# t: ?, \  u9 j: J% u    (entmod DIMENSION)
9 H* t, @1 [& t( e    (setq X (cadr (assoc '11 DIMENSION)))
    (setq SSL (SSGET))
    (setq N (- (sslength ssl) 1))
" o% k1 H: }9 V8 i. I# M2 \& {    (setq test 0)
    (while (<= test  N )
4 U' ~, B2 O% Z8 S1 l& V4 x    (setq DIMENSION (ENTGET (ssname ssL test)))
; d/ W% ?  ]) Q$ W    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
    (setq Y (caDdr (assoc '11 DIMENSION)))
- v9 s, l* G6 t( g% I    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
2 y% ]' W9 b2 o$ ]5 n    (entmod DIMENSION)
    (setq test (+ 1 test))
    )
" F' |- H/ {3 c  )
)
* i5 b# N2 |2 v)

陈微积分

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

ZWX168

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

ZWX168

学习VBA、LISP不需要什么书，我几乎没看过书，他的帮助文件比任何书都好！
# {% v$ @2 E! k- {* }那里有大量例子，尤其是VBA的例子很实用！！！！