CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
12
返回列表 发新帖
楼主: ZWX168

[开发] 怎么没有二次开发的?

[复制链接]
 楼主| 发表于 2007-5-11 09:12 | 显示全部楼层
尺寸对齐的程序,高版本的CAD有此功能,可低版本的没有,自己编一个,) d! U' Z' d! j( H4 Z
只能对水平、垂直的标注有效!!!!!!!" l! u& h& i. O4 g; x- N" {
2 v4 Y1 A0 h* f* \% a6 s
不够完善,那位大师补充一下% e" _1 Z& Q# r$ i+ w1 h
' H2 m, k; J0 @: _
(defun C:DIMalign()
# z$ x. n4 H; U3 c# Y(setq  DIMENSION (entget (car (entsel))))" a- h- A. Q  @1 \+ z
(setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION )); Q, `4 S  S1 j- {1 V- R
(if (= (cdr (assoc '50 DIMENSION)) 0.0)4 V2 u/ f9 a& H: X. J9 ?
(progn: S2 C! g) T. |  k, m+ N& W
    (setq Y (caDdr (assoc '10 DIMENSION)))
! @9 N6 ]( q3 e, K- ^( c9 i. |% p    (setq X (cadr (assoc '11 DIMENSION)))
" w! U1 z3 h4 x' V; h. Q    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))) w) g! I/ E9 x% G7 ~$ y. u
    (entmod DIMENSION)( a  c* J2 i( T& E2 |
    (setq Y (caDdr (assoc '11 DIMENSION)))5 C5 E3 T1 w1 ?7 q' T
    (setq SSL (SSGET))
+ V4 E4 u, c& u5 U    (setq N (- (sslength ssl) 1))2 t' M; K8 i- x# N- Q
    (setq test 0)9 U$ D! @: M# E  R, c
    (while (<= test  N )# c0 q* m- a0 A# B& o" W: p) F' u4 A+ J* ~7 Z
    (setq DIMENSION (ENTGET (ssname ssL test)))
; l7 \& i4 z2 P) B$ M5 p8 H    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))
% o  K4 k& f/ [6 n    (setq X (cadr (assoc '11 DIMENSION)))
* ]/ ?6 o1 v' c1 ~- @! B' @    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
, W2 A+ @8 {5 J8 }# _    (entmod DIMENSION)0 b0 {, L' e' i* ^
    (setq test (+ 1 test))
* O. f( z6 |: U+ S    ). H, |1 M" _/ ?7 u
  )- Z  _3 S: p1 M" g% @- n
(progn
+ E8 p1 o3 g; E9 N* A    (setq X (cadr (assoc '10 DIMENSION)))
# L! m9 @% ?/ f    (setq Y (caddr (assoc '11 DIMENSION)))' Z+ m, h" y- H2 {
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))) ?5 b. j  {6 L, B* A' e$ H
    (entmod DIMENSION)
3 v6 T% S0 Z3 ?$ ]; p' W0 W$ J    (setq X (cadr (assoc '11 DIMENSION)))* y) |: q* {6 q& t3 `/ v  N
    (setq SSL (SSGET))
9 I1 L  K; S$ U  X# r    (setq N (- (sslength ssl) 1))3 X% q# d* u% @8 b, v
    (setq test 0)
9 _- T2 Q. k3 r) b8 [+ |# H    (while (<= test  N )6 \& X; Q, d- j$ u0 \" P: f
    (setq DIMENSION (ENTGET (ssname ssL test)))
' e' {& }2 G, o6 R& g  ]4 G9 ^1 r    (setq DIMENSION (subst (cons 70 160) (assoc 70 DIMENSION) DIMENSION ))) a' w6 c6 w$ F/ n: T
    (setq Y (caDdr (assoc '11 DIMENSION)))  b) {8 P# n( f) }( _
    (setq DIMENSION (subst (cons 11 (LIST X Y 0.0)) (assoc 11 DIMENSION) DIMENSION ))
) B' B$ M0 N& v# [' P) ]3 @    (entmod DIMENSION)8 m. t9 e+ k5 S
    (setq test (+ 1 test))4 {  Z5 U5 z$ b% `) ~3 X) d
    )
' v+ \; }% V2 y  d9 Q, J  )
$ ]9 {3 y  g5 g1 u)
" i, z/ ^  [; ~1 H0 l)
发表于 2007-5-15 21:17 | 显示全部楼层
能不能比较一下VB,VBA,LIST几中开发方式啊.并介绍相关的书.谢谢了
 楼主| 发表于 2007-5-29 16:52 | 显示全部楼层

: I  d' t7 y! ?( z7 [8 o公司收到CAD的律师函,要改为国产软件,垃圾, L$ p2 C0 x* B9 N1 R1 S3 k% I  i
别了,我的CAD
 楼主| 发表于 2007-5-29 16:56 | 显示全部楼层
学习VBA、LISP不需要什么书,我几乎没看过书,他的帮助文件比任何书都好!; ]: q4 b7 }/ G
那里有大量例子,尤其是VBA的例子很实用!!!!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 06:52

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表