[讨论]：大家在cad里建过网架的模型吗？

casd

大家有没有在cad里建过网架的模型呢。如果有，可否谈谈经验，我开始在平面中画线框图，然后stretch形成锥体，但stretch的过程太麻烦，写个程序却不能顺利运行，大家谈谈经验或给我的程序指出问题，谢谢程序中pt1为网架锥体的顶点，但程序执行后，该点的坐标没有任何变化
(defun c:wj1()
  (initget 16)
  (setq pt1 (getpoint "pick the truss point"))
  (setq xp1 (car pt1))
  (setq yp1 (car (cdr pt1)))
  (setq zp1 (car (cdr (cdr pt1))))
  (setq xp2 (- xp1 0.01)
        yp2 (- yp1 0.01)
        xp3 (+ xp1 0.01)
        yp3 (+ yp1 0.01)
        pt2 (list xp2 yp2)
        pt3 (list xp3 yp3)
  )
   (gc)
   ;(setq sel1 (ssget "c" pt3 pt2))
  (command "stretch" "c" pt3 pt2 "" pt1 "@10,10,-0.70")         
  
)