[推荐]：我收集的程序

zhou041224

编制一个能够计算两点之间距离的程序，即可以使用鼠标选取两点，然后在命令行中直接给出这两点的距离。
(defun C:dn(/pt1 pt2d)
  (graphsar)
  (setvar "CMDECHO"0)
  (setq pt1 (getpoint"Pick the first point"))(terpri)
  (setq pt2 (getpoint"Next Point"pt2)(terpri)
  (setq d (distance pt1 pt2))
  (promat "Runing Distance:")(promat (rtos d 4 4))
       (while
       (setq pt1 (getpoint"First Point:"))(terpri)
       (setq pt2 (getpoint"Next Point"pt1))(terpri)
       (setq d(+distance pt1 pt2)d))
       (promat "Runing Distance:")(promat (rtos d 4 4))
    )
    (promat "Total Distance:")(promat (rtos d 4 4))
    (princ)
    )

编制一个程序,能够将被选择的当前层的物体复制到另一个指定的层中去，但是物体仍然在原来的层中保留。
(defun C:CLONE（/s l）
    (setvar "cmdecho"0)
    (if
       (and
          (setq s (ssgetssss))
          (not (zerop (sslength s)))
          (not (zerop (strlen(setp1 (getstring"\n Layer to copy to"))))))
          (Command "copy"s"""@""@""change"s"""p""la"l"")
          (promat"Invalid")
           (progn))

xyp1964

最初由 zhou041224 发布
[B]编制一个能够计算两点之间距离的程序，即可以使用鼠标选取两点，然后在命令行中直接给出这两点的距离。
(defun C:dn(/pt1 pt2d)
  (graphsar)
  (setvar "CMDECHO"0)
  (setq pt1 (getpoint"Pick the first poin... [/B]

上载前最好进行测试。
这么多错误的东东，有点像“垃圾”，如果真是搜集的，不就像在拣破烂！
言过了……