完善一下程序

szx025

(defun c:ljm (/ oldos color_old pt1 pt2 pt3 pt4 pt5 pt21 pt31)
       (setq olderr *error*
           *error* at_err)
;;保存系统变量设置
    (setq old_OS  (getvar "OSMODE")
      old_CMD (getvar "CMDECHO")
    )
     
    (setvar "CMDECHO" 0)
    (setvar "osmode" 32)   
(setq color_old (getvar "cecolor")) ;_记录cecolor系统变量
(while (setq pt1 (getpoint "\n梁中心定位点:"))
(progn
(prompt "\n [梁宽:]")   
(setq    w         (if (null W_dist)
               (getdist "\n 当前值为<>:")
               (getdist (strcat "\n当前值为<" (rtos W_dist) ">:"))
             )
    W_dist (if (null w)
               W_dist
               w
             )
  )
(prompt "\n [梁高:]")
(setq    h         (if (null h_dist)
               (getdist "\n 当前值为<>:")
               (getdist (strcat "\n当前值为<" (rtos h_dist) ">:"))
             )
    h_dist (if (null h)
               h_dist
               h
             )
  )
       (setq pt2 (polar pt1 0 (/ W_dist 2)))
       (setq pt3 (polar pt1 pi (/ W_dist 2)))
           (setq pt21 (polar pt2 (* 1.5 pi) 100))
           (setq pt31 (polar pt3 (* 1.5 pi) 100))
       (setq pt4 (polar pt2 (* 1.5 pi) h_dist))
       (setq pt5 (polar pt3 (* 1.5 pi) h_dist))
      
       (setvar "cecolor" "6") ;_把cecolor系统变量设为洋红色
       (command  "solid" "non" pt31 "non" pt21 "non" pt5 "non" pt4 "")
       (setvar "cecolor" "7") ;_把cecolor系统变量设为白色
       (command "rectang" "non" pt21 "non" pt5 "")
(setq ee (entlast))
    (command "_trim" ee "" "f" pt21 pt5  "" "")
       )
(princ)
  )
;;恢复系统变量设置
    (setvar "CMDECHO" old_CMD)
    (setvar "OSMODE" old_OS)
;;(setvar "cecolor" color_old)
(setvar "cecolor" "bylayer")
(setq *error* olderr)
(princ)
)
请帮忙完善一下，梁宽，梁高加一个预设值，梁宽250 梁高500，

Andyhon

建议楼主参考 udist 函数
(http://www.engds.com/Files/Lisputil.lsp)

戏男

这是做什么用的程序啊？

xiaxiang

变量预存储的方法，论坛有很多讨论了