求助各高手在点击标注文字时在前面加个直径符号的LISP程序

黄河 · 发表于 2006-11-19 10:47:00

ZZXXQQ · 发表于 2006-11-19 22:41:00

[/CODE]
(DEFUN C:PHI (/ SS I ENT RR)
(SETVAR "cmdecho" 0)
(PRINC "\n选择应用公差的尺寸 : ")
(IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
  (SETQ I 0)
  (REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
(SETQ RR (SUBSTR (CDR (ASSOC 1 ENT)) 1 2))
(SETQ RR (STRCAT "%%C" RR))
(SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
(ENTMOD ENT)
  )
))
(PRINC)
)
[/CODE]

风雨依然 · 发表于 2013-5-18 19:51:12

路过收藏了

stonedesign · 发表于 2022-6-21 09:21:56

ZZXXQQ 发表于 2006-11-19 22:41
[/CODE]
(DEFUN CHI (/ SS I ENT RR)
(SETVAR "cmdecho" 0)

加载后显示语法错误

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