各位好，这个可用DCL实现？不懂DCL的请教，谢谢

linheyuanpcb

(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来修改圆直径是否可以？
把选择到的圆原始直径取出，在边上对应一个编辑框输入修改？
如数据为空则表示不修改，保留原始数据，谢谢

xyp1964

;; 这个功能用对话框有点多余

1. (defun c:te ()
   
2.   (setq dd (Udist 7 "" "新直径<输入或鼠标直接量取>" dd nil))
   
3.   (if (and (setq s1 (car (entsel "\n请选择指定图层的圆进行修改直径: ")))
   
4.            (setq la (cdr (assoc 8 (entget s1))))
   
5.            (setq ss (ssget "x" (list '(0 . "CIRCLE") (cons 8 la))))
   
6.       )
   
7.     (xyp-SubUpd ss 40 (* dd 0.5))
   
8.   )
   
9.   (princ)
   
10. )

(defun c:te ()<br />   (setq dd (Udist 7 "" "新直径<输入或鼠标直接量取>" dd nil))<br />   (if (and (setq s1 (car (entsel "\n请选择指定图层的圆进行修改直径: ")))<br />            (setq la (cdr (assoc 8 (entget s1))))<br />            (setq ss (ssget "x" (list '(0 . "CIRCLE") (cons 8 la))))<br />       )<br />     (xyp-SubUpd ss 40 (* dd 0.5))<br />   )<br />   (princ)<br /> )

linheyuanpcb

                                                         

linheyuanpcb

sharetow 发表于 2019-12-12 12:47
权限不够，回不了你私发的信息。
可以的，再多都可以，只是对你想要的dcl面板类型有所限制。

你好
  按你所觉得合适的面板即可，感谢

linheyuanpcb

xyp1964 发表于 2019-12-10 14:13
;; 这个功能用对话框有点多余

多种圆的时候，在命令行修改容易眼花

sharetow

:D你在晓东也发了相同的帖子哇

sharetow

权限不够，回不了你私发的信息。
可以的，再多都可以，只是对你想要的dcl面板类型有所限制。

sharetow

linheyuanpcb 发表于 2019-12-12 13:16
你好
  按你所觉得合适的面板即可，感谢

上附件........圆比较多的情况

linheyuanpcb

sharetow 你好 请查看附件，谢谢

sharetow

linheyuanpcb 发表于 2019-12-12 13:50
sharetow 你好 请查看附件，谢谢

我感觉只能做这种面板了