各位好,修改圆直径程序是否可改成DCL方式？谢谢

cam0668 · 发表于 2019-12-8 13:58:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:te( / li et clst cenlist l2 )
(setq li (entsel "\n请选择指定图层的圆进行修改直径:"))
(progn
      (setq et (entget(nth 0 li)))
         (setq lay_name (cdr (assoc 8 et)))
      )
(if (and(setq ss (ssget "x"(list'(0 . "CIRCLE")(cons 8 lay_name)))))
(progn
(setq i 0 clst nil  cenlist  nil l2 nil)
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
r1 (assoc 40 ent)
cenlist (cons(cdr r1) cenlist)
i (1+ i))
(setq cenlist (vl-sort cenlist '< ));小到大排列
)
(setq l2 (cons (car cenlist)l2))
(while(setq cenlist (vl-remove(car cenlist)(cdr cenlist)))
(setq l2 (cons(car cenlist) l2))
)
(foreach e (reverse l2)
(if (not (member e clst))
(progn
(setq ss1 (ssget "x"(list'(0 . "CIRCLE")(cons 8 lay_name) (cons 40 e))))
(setq newd (getdist (strcat "\n输入新的直径-->" (rtos (* e 2) 2 3) "<--:")))
(if newd (progn
(setq j 0)
(setq e (/ newd 2))
(setq clst (cons e clst))
(repeat (sslength ss1)
(setq ent1 (entget(ssname ss1 j))
ent1 (subst (cons 40 e) (assoc 40 ent1) ent1)
j (1+ j))
(entmod ent1)
)
)
)))))
);修改结束
(princ)
)

把以上程序改为DCL来修改圆直径是否可以？
把选择到的圆原始直径取出，在边上对应一个编辑框输入修改？
如数据为空则表示不修改，保留原始数据，谢谢

yangjian001 · 发表于 2019-12-10 09:02:57

做一个热心并受欢迎的人

cam0668 · 发表于 2019-12-10 22:23:03

静待高手出来

aisong220 · 发表于 2019-12-11 00:00:36

sharetow · 发表于 2019-12-11 16:11:49

要什么样的dcl，你示意一下

cam0668 · 发表于 2019-12-11 17:06:53

类似附件中那样的即可，谢谢

cam0668 · 发表于 2019-12-12 08:23:52

sharetow 发表于 2019-12-11 16:11
要什么样的dcl，你示意一下

早，是否可实现？谢谢

sharetow · 发表于 2019-12-12 09:03:10

cam0668 发表于 2019-12-12 08:23
早，是否可实现？谢谢

给你代码里的(assoc 40 ent1)值提取到dcl面板就可以了啊

sharetow · 发表于 2019-12-12 09:04:14

cam0668 发表于 2019-12-12 08:23
早，是否可实现？谢谢

给你代码里的(assoc 40 ent1)值提取到dcl就可以了啊

cam0668 · 发表于 2019-12-12 09:26:58

sharetow 发表于 2019-12-12 09:04
给你代码里的(assoc 40 ent1)值提取到dcl就可以了啊

有相差例程吗，DCL不会写，是否可帮忙一下谢谢

账号		自动登录	找回密码
密码			立即注册

[求助] 各位好,修改圆直径程序是否可改成DCL方式？谢谢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。