调用command报错

meng2025

程序如下
(defun c:lsp_01()
  (setvar "cmdecho" 0)
  (setq cenpt (getpoint "\n 中心点:"))
  (setq hh (getdist cenpt "\n 高度 <50>:"))
  (if (null hh) (setq hh 50.0))
  (setq ww (* hh 2))
  (setq pt1m (polar cenpt pi hh))
  (setq pt1 (polar pt1m (* pi 1.5) (/ hh 2)))
  (setq pt2 (polar pt1 0 ww))
  (setq pt3 (polar pt2 (/ pi 2) hh))
  (command "_rectang" pt1 pt3)
  (command "_circle" cenpt pt1)
)
运行到command这行时就提示
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)

请问是什么原因？

自贡黄明儒

重新安装过，实在不行换电脑

meng2025

自贡黄明儒 发表于 2025-2-17 10:21
重新安装过，实在不行换电脑

OK，修复后就可以用了，谢谢

xyp1964

1. (defun c:tt ()
   
2.   (setq hh (getdist "\n高度<50>: "))
   
3.   (if (null hh)
   
4.     (setq hh 50.0)
   
5.   )
   
6.   (while (setq p0 (getpoint "\n中心点: "))
   
7.     (setq p1 (mapcar '+ p0 (list (- hh) (* hh -0.5)))
   
8.           p2 (mapcar '+ p0 (list hh (* hh 0.5)))
   
9.     )
   
10.     (command "_rectang" "non" p1 "non" p2)
    
11.     (command "_circle" p0 "non" p1)
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (setq hh (getdist "\n高度<50>: "))<br />   (if (null hh)<br />     (setq hh 50.0)<br />   )<br />   (while (setq p0 (getpoint "\n中心点: "))<br />     (setq p1 (mapcar '+ p0 (list (- hh) (* hh -0.5)))<br />           p2 (mapcar '+ p0 (list hh (* hh 0.5)))<br />     )<br />     (command "_rectang" "non" p1 "non" p2)<br />     (command "_circle" p0 "non" p1)<br />   )<br />   (princ)<br /> )

meng2025

xyp1964 发表于 2025-2-17 11:29

强大！又学到了。

yanshengjiang

xyp1964 发表于 2025-2-17 11:29

不知道前4行替换为(or hh (setq hh (getdist "\n高度<50>: "))行不行