[求助]：路见不平，拔刀相助！寻高手！

流浪狗狗

本人编了一个圆锥体的视图，可是运行后有问题，只能看到俯视图的圆，可看不到主视图的三角形，希望各位高手大侠能指点一下， 谢谢！
(defun c:yzt()
(setq p (getpoint "\n请输入圆锥体底面圆中心："))
(setq h (getreal "\n请输入圆锥体高："))
(setq r (getreal "\n请输入底面圆半径："))
(setq a (car p))
(setq b (cdr p))
(setq p1 (list (+ a r) b))
(setq p2 (list (- a r) b))
(setq p3 (list a (sqrt (+ (* h h) (* r r)))))
(setq o (list a (+ r 30)))
(command "line" p1 p2 p3 "c")
(command "circle" o r "")
)
在CAD运行后命令行显示的是

Command: yzt

请输入圆锥体底面圆中心：
请输入圆锥体高：200

请输入底面圆半径：100
pline
Specify start point:
Command:
Command:
Command: c Unknown command "C".  Press F1 for help.

Command: circle Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter] <100.0000>: 100.0000000000000
Command: YZT Unknown command "YZT".  Press F1 for help.

Command: nil

kailler

使用command画图前先把捕捉关了，再反映现象

啵浪鼓

不行,问题依然存在

流浪狗狗

哦！谢谢！！
怎么关，用什么命令？

tryq_zxf

用什么命令？

无痕

(command "line" p1 p2 p3 "c")
是line？是pline？

kailler

(defun c:yzt()
(setq p (getpoint "\n请输入圆锥体底面圆中心："))
(setq h (getreal "\n请输入圆锥体高："))
(setq r (getreal "\n请输入底面圆半径："))
(setq a (car p))
(setq b (cdr p))
(setq p1 (append (list (+ a r)) b));****
(setq p2 (append (list (- a r)) b));****
(setq p3 (list a (sqrt (+ (* h h) (* r r)))))
(setq o (list a (+ r 30)))
(command "line" p1 p2 p3 "c")
(command "circle" o r);****
)

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:yzt ()
  (cmdla0)
  (command "ucs" "")
  (command "vpoint" (list 0 0 5))
  (command ".undo" "BE")
  (setq        pt  (getpoint "\n请输入圆锥体底面圆中心 : ")
        rad (ureal 1 "" "\n请输入底面圆半径" rad)
        h   (ureal 1 "" "\n请输入圆锥体高" h)
  )
  (command "CONE" p r h)
  (command ".undo" "E")
  (command "vpoint" (list 4 -5 3))
  (cmdla1)
)
[/php]