myflying帮帮我！

yudong716 · 发表于 2003-6-30 20:18:00

myflying请帮帮我！我在乐筑天下上下载了一个程序：
;sline.lsp
; 产生一个两端带箭头的双点划折线，箭头和线宽可指定。
(defun c:sline ()
  (setvar "cmdecho" 0)
  (if (not asize) (setq asize 0.50))    ;初始化箭头尺寸
  (if (not PThk)  (setq PThk 0.030))    ;多义线宽度
  (defun GETR (val msg / tm)
(setq tm (getreal (strcat msg " : ")))
(cond ((= (type tm) 'REAL) (eval tm))
      ((= tm nil) (eval val))
      (t (princ "\007 *错误* 不是一个实数") (eval val)) ) )
  (defun loop ()
(cond ((setq p2 (getpoint p1 "到点： ")) (command p2)
                                 (setq p0 p1) (setq p1 p2) (loop))
      ( t (command "u" (polar p1 (angle p1 p0) asize)
                     "w" (/ asize 3) 0.0 p1 ""))))
  (setq asize (getr asize "箭头大小"))
  (setq PThk  (getr PThk " 多义线宽度"))
  (setq p1 (getpoint " 从点： "))
  (command "pline" p1 "w" 0.0 0.0)
  (setq p2 (getpoint p1 " 到点： "))
  (command "w" 0.0 (/ asize 3) (polar p1 (angle p1 p2) asize)
         "w" PThk PThk p2)
  (setq p1 p2)
  (loop)
  ;(command "change" "l" "" "p" "lt" "phantom" "")
  (eval "完成")
)
(prompt "\n键入SLINE唤起命令： ")
能不能请你稍做改动将程序改为两端带箭头的直线，箭头和线宽可指定。（我还没入门）

meflying · 发表于 2003-7-1 09:08:00

这个程序好象就满足这个要求啊，不过在此处要加一句，
  (command "w" 0.0 (/ asize 3) (polar p1 (angle p1 p2) asize)
         "w" PThk PThk p2)
  (setq p0 p1) ;加此句
  (setq p1 p2)
  (loop)
而且getr loop p0 p1 p2 最好做局部变量处理，即第一行改为
(defun c:sline ( / GETR loop p0 p1 p2)
如果你不是这个意思，请再说清楚些