新人，请教一个简单的问题

taikongyang · 发表于 2020-6-17 23:12:24

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

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

×

不知道为什么自己写的这个改圆半径的Lisp不运行，把第二行去掉，却能运行，但是我需要直接在命令行里输入啊。

;改圆半径
(defun c:gybj ()
(setvar "CMDECHO" 0)
(setq en(entsel "请选择要修改半径的圆："))
(setq endata(entget(car en)))
(setq oldradlist(assoc 40 endata))
(setq orad(cdr oldradlist));orad原来的半径
(princ "\n半径：") (princ orad)
(setq cp(cdr(assoc 10 endata)))
(setq nrad(getdist cp "\n请输入新的半径："));nrad新的半径
(setq newradlist(cons 40 nrad))
(setq endata(subst newradlist oldradlist endata))
(entmod endata)
(prin1)
)

taikongyang · 发表于 2020-6-18 17:44:47

人工置顶！！！！

75215195 · 发表于 2020-6-20 09:50:26

(Defun C:gybj (/ s obj n d new_d)
(vl-load-com)
(princ "\n选取要修改直径的圆:")
(setq s (ssget '((0 . "CIRCLE"))))
(setq d (vlax-get (vlax-ename->vla-object (ssname s 0)) 'Diameter))
(if(not (setq new_d (getreal (strcat"\n新直径<"(rtos d 2 2)">:"))))(setq new_d d))
   (repeat (setq n (sslength s))
(setq obj (vlax-ename->vla-object (ssname s (setq n (1- n)))))
(vla-put-Diameter obj new_d)
)
  (princ (strcat "\n总共"(itoa (sslength s))"个圆孔直径修改为￠"(rtos new_d 2 2)))
  (princ)
  )

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

[求助] 新人，请教一个简单的问题

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