[分享]：找到组织了！

shyemir

今天下载超级图库发现这么个好地方，爽啊。俺是刚入门地没啥经验，别人送我一小lisp程序我发在这里了。
文件名：Zdx.lsp
内  容：
(defun C:zdx (/ pt1 pt2 pt3 pt4 pt5 pt6 a d c)
  (setq pt2 (getpoint"Enter A Point:"))
  (setvar "lastpoint" pt2)
  (setq pt5 (getpoint"Enter A Point:"))
  (setq a (angle pt2 pt5))
  (setq d (distance pt2 pt5))
  (setq ptm (mapcar '+ pt2 pt5))
  (setq ptm (mapcar '/ ptm '(2.0 2.0)))
  (setq pt1 (polar pt2 a -2.0))
  (setq pt6 (polar pt5 a 2.0))
  (setq pt2 (polar ptm a -1.0))
  (setq pt5 (polar ptm a 1.0))
  (setq a (+ a 1.815775))
  (setq pt3 (polar ptm a 2.0615528))
  (setq pt4 (polar ptm a -2.0615528))
  (setq d (getvar "osmode"))
  (setvar "osmode" 0)
  (command "pline" pt1 "w" "0.0" "0.0" pt2 pt3 pt4 pt5 pt6 "")
  (setvar "osmode" d)
)
R14好用，命令就是“zdx”。