[LISP程序]：求助：怎样在LISP中设定线形？

eyeszh

我刚学lisp，现在不知道怎么样设定线形，有没有简单的设定线形的方法，比如这个连线程序：
(defun c:lianxian()
(setq p0(getpoint"n\拾取插入点："))
(setq x0(car p0)
      y0(cadr p0)
      )
(setq h(getreal"n\输入h值："))
(setq w(getreal"n\输入w值："))
(setq l(getreal"n\输入l值："));;;提示输入x0,y0,h,w,l值
(setq x1 x0
      x2 (+ x0 (/ w 3))
      x3 (+ x0 (+ h (/ w 3)))
      x4 (+ x0 l)
      x5 x4
      )
(setq y1 (- y0 h)
      y2 (- y1 (/ w 3))
      y3 y2
      y4 y1
      y5 (- y0 (/ h 2))
         )
(setq p0(list x0 y0)
      p1(list x1 y1)
      p2(list x2 y2)
      p3(list x3 y3)
      p4(list x4 y4)
      p5(list x5 y5)
      )
  (command"line" p0 p1 p2 p3 p4 p5 "0")
  (princ)
  )
加载运行后是一个折线，现在我需要把这个折线的线形显示为虚线，应该怎么办？有没有简单的方法？

snsj

是 "celtype"
在程序开始时候加上
(setq oce (getvar celtype" ))
(setvar "celtype" "已经加载的线形")
在程序结束时候
(setvar "celtype" oce)
常用的线性最好定义在AUTOCAD的acadiso.lin
里启动时候自动加载，避免每次加载和找不到线性的问题

鹰博长空

不好意思，搞错了，以后一定认真！

ll_j

可以使用下面语句直接设定，不必预先加载：
(command "linetype" "s" "hidden" "")