lq8000 发表于 2022-9-10 20:16:08

加带号

本帖最后由 lq8000 于 2023-12-30 19:05 编辑

(defun c:jdh( / dh ss en y)
;;;;;添加带号
(setq ss (ssget "X"))
(setq en (ssname ss 0))
(setq en (entget en))
(setq y (cadr (assoc 10 en)))
(setq y (rtos y 2 0))
(if (< (strlen y) 8) (progn
(setq dh(getint "\n输入带号:"))
(if (= dh nil) (setq dh 0))
(setq dh(* dh 1000000))
(command-s "move" "all" "" "0,0" (list dh 0))
(command-s "zoom" "e"))(princ "已有带号，无需再加！！！"))
(princ)
)

(defun c:qdh( / dh ss en y)
;;;;;去除带号
(setq ss (ssget "X"))
(setq en (ssname ss 0))
(setq en (entget en))
(setq y (cadr (assoc 10 en)))
(setq y (rtos y 2 0))
(if (= (strlen y) 8)(progn (setq dh (atoi (substr y 1 2)))
(if (= dh nil) (setq dh 0))
(setq dh(* dh 1000000 -1))
(command-s "move" "all" "" "0,0" (list dh 0))
(command-s "zoom" "e"))(princ "当前图形没有带号，无需去除带号！！！"))
(princ)
)

萧●﹏●明 发表于 2022-9-13 21:23:04

Cass11里面有这个命令都和这一样，而且提示的字符串都一致

kpl 发表于 2023-7-9 23:37:32

不错挺好用的。
页: [1]
查看完整版本: 加带号