[LISP程序]：交作业，第一个完整的作业

yandib0880

;; =======================自动绘制剖断符号程序==========================;;

(defun c:pdf (/     pt1   pt2         pt3   pt4   lay   ang         ang1  dis  bt1   bt2
              bt3   bt4   scale  txt   tyt   txt1   tyt1   btw  txh  tx1)
  (prompt "\n绘制剖断符号程序")
  (setvar "cmdecho" 0)
  (setq lay (getvar "clayer"))
  (command "layer" "m" "dimlay" "c" "g" "dimlay" "" "")
  (setq scale (getreal "\n作图比例<默认100:>:"))
  (if (= scale nil)
    (setq scale 100)
  )
  (setq pt1 (getpoint "\n选取剖断符号的起点: "))
  (setq pt2 (getpoint pt1 "\n选取剖断符号的终点: "))
  (setq ang (angle pt1 pt2))
  (setq dis (distance pt1 pt2))
  (setq pt3 (polar pt1 ang (* scale 20)))
  (setq pt4 (polar pt1 ang (- dis (* scale 20))))
  (command "pline" pt1 "w" "0" "0" pt3 "")
  (command "pline" pt4 "w" "0" "0" pt2 "")
  (setq bt1 (polar pt1 (- ang (/ pi 2))(* -1.5 scale)))
  (setq bt2 (polar pt2 (- ang (/ pi 2))(* -1.5 scale)))
  (setq ang1 (angle bt1 bt2))
  (setq bt3 (polar bt1 ang1 (* scale 15)))
  (setq bt4 (polar bt1 ang1 (- dis (* scale 15))))
  (setq btw (* 0.6 scale))
  (command "pline" bt1 "w" btw btw bt3 "")
  (command "pline" bt4 "w" btw btw bt2 "")
  (setq txt (polar bt1 (- ang1 (/ pi 2))(* 0.5 scale)))
  (setq tyt (polar bt4 (- ang1 (/ pi 2))(* 0.5 scale)))
  (setq txt1 (polar bt3 (- ang1 (/ pi 2))(* 0.5 scale)))
  (setq tyt1 (polar bt2 (- ang1 (/ pi 2))(* 0.5 scale)))
  (setq txh (* scale 8))
  (setq tx1 (strcase (getstring "\n剖断符字母编号<默认无>:")))
  (command "style" "isocteur" "1" "" "")
  (command "text" "j" "bl" (polar txt ang1 (* scale 5)) txh txt1 tx1 "")
  (command "text" "j" "bl" (polar tyt ang1 (* scale 5)) txh tyt1 tx1 "")
  (command "layer" "set" lay "" "")
  (princ "\n绘制成功")
  (princ)
)

;; ======================================================================;;

zhynt

问题：stale为何命令？(command "stale" "isocteur" "" "")何意？

yandib0880

不好意思，应为：(command "style" "isocteur" "1" "" "")
我是想选字体，请指教……我已经改过了

zhynt

那“isosteur”前面并没有定义，再说这样写法好像不行，应该这样：
(command "style" "字型名称" "txt" "0" "1" "0" "n" "n" "n")
其中如果要显示中文则将"txt" 改为"txt,hztxt"
后面参数的含义你运行“-style”命令就知道了。

yandib0880

谢谢批改作业；）