[LISP]求助老师!!!!!! LSp程序

yswoyh

请问我想用PLine线画线,,在我输入命令PLine的回车的时候,,CAD提示输入( Z  )高程 ,线画后自动把线加宽到(0.15米)!!!谢谢各位!!!

LONGXIN

(defun c:pll (/ pt1 wide)
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\n输入点："))
  (if  pt1
    (progn
      (command "pline" pt1)
      (setq pt1 (getpoint pt1 "\n输入点："))
    )
  )
  (if  pt1
    (progn
      (while pt1
 (command pt1)
 (setq pt1 (getpoint pt1))
      )
      (command "")
      (setq wide (getreal "\n输入高程："))
      (if (= nil wide)
 (setq wide 0)
      )
      (command "change" "l" "" "p" "e" wide "")
      (command "pedit" "l" "w" 0.15 "")
    )
  )
)

yxp

设置PLINEWID来控制线宽会不会好些呢？