为什么无法运行?

zy19860604

哪里出错了?

(defun c:jc(/ a a1 a2 ang b b1 b2 obm r w)
  (set obm (getvar "blipmode"))
  (initget 7)
  (setq w (getreal "\nwidth of jc:"))
  (setq r (/ w 2))
  (setvar "blipmode" 1)
  (initget 1)
  (setq a (getpoint "\nlocate first center:"))
  (initget 1)
  (setq b (getpoint "\nlocate second center:"))
  (setvar "blipmode" 0)
  (setq ang (angle a b))
  (setq a1 (polar a (- ang (/ pi 2)) r))
  (setq a2 (polar a (+ ang (/ pi 2)) r))
  (setq b1 (polar b (- ang (/ pi 2)) r))
  (setq b2 (polar b (+ ang (/ pi 2)) r))
  (setvar "cmdecho" 0)
  (command "pline" a1 b1 "a" b2 "l" a2 "a" "cl")
  (setvar "cmdecho" 1)
  (setvar "blipmode" obm)
  (princ)
  )

caoyin

1.(set obm (getvar "blipmode"))->(setq obm (getvar "blipmode"))

2.(setvar "osmode" 0)执行pline命令需要关闭对象捕捉

zy19860604

谢谢版主我的问题已解决,第二点没有想到.现在的程序如下:

(defun c:jc(/ a a1 a2 ang b b1 b2 obm r w oom)
  (setq obm (getvar "blipmode"))
  (setq oom (getvar "osmode"))
  (initget 7)
  (setq w (getreal "\nwidth of jc:"))
  (setq r (/ w 2))
  (setvar "blipmode" 1)
  (initget 1)
  (setq a (getpoint "\nlocate first center:"))
  (initget 1)
  (setq b (getpoint a "\nlocate second center:"))
  (setvar "blipmode" 0)
  (setq ang (angle a b))
  (setq a1 (polar a (- ang (/ pi 2)) r))
  (setq a2 (polar a (+ ang (/ pi 2)) r))
  (setq b1 (polar b (- ang (/ pi 2)) r))
  (setq b2 (polar b (+ ang (/ pi 2)) r))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "pline" a1 b1 "a" b2 "l" a2 "a" "cl")
  (setvar "cmdecho" 1)
  (setvar "blipmode" obm)
  (setvar "osmode" oom)
  (princ)
  )

zy19860604

现在还有一个问题就是如何加中心线?中心线在AM-7图层上?

caoyin

加载线型可直接用命令加载

(command "_.LINETYPE" ...)

或

(command "_.layer" "_ltype" ...)

也可以用vla-load加载