加带号

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

不错挺好用的。

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