高程标注

hphkjz · 发表于 2022-9-3 13:50:19

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

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

×

这是个高程标注的代码，但是不能调整字的大小，还有就是需要一遍一遍的输入命令分别标注，不能连续标注。哪位大哥能帮我修改一下呢？
(defun c:gc()
(getpoint
(setq a (getpoint "point"))
(setq b (strcat "(" (rtos (caddr a) 2 3) ")"))
(command "-text" a "" "" b "")
)
)

liu-he · 发表于 2022-9-7 08:47:16

(defun c:gc (/ loop a h11 b)
  (setq loop t)
  (while loop
(initget "h H")
(setq a (getpoint "\n请输入插入点或者字高H"))
(IF (NOT H11)
   (SETQ H11 2.5)
)
(COND
   ((or (= a "h") (= a "H"))
   (SETQ H (GETINT (strcat "\n请输入字高<" (rtos h11 2 1) ">")))
   (setq a (getpoint "\n请输入插入点"))
   )
   ((= a nil) (setq loop nil))
   ((listp a) t)
)
(setq b (strcat "(" (rtos (caddr a) 2 3) ")"))
(command "-text" a h11 "" b "")
  )
)

hphkjz · 发表于 2022-11-24 07:19:23

liu-he 发表于 2022-9-7 08:47
(defun c:gc (/ loop a h11 b)
(setq loop t)
(while loop

非常感谢哈

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

[编程申请] 高程标注

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

点评