[求助]：这个PHP啥用

yucheng920

我刚在论坛上求教一个标注弧长的命今，有人给我这样一个PHP

请告诉我一直这种代码怎么用

(defun c:yhDIM ()            ;弧长标注
  (setq en (entsel "对象: "))
  (setq pt (getpoint "选点: "))
  (setvar "CMDECHO" 0)
  (command "dimangular" en pt)
  (setq len_data (entget (entlast)))
  (setq old_hc (assoc 1 len_data))

  (command "lengthen" (car en) "")
  (setq l (getvar "perimeter"))
  (setq new_hc (cons 1 (rtos l 2 2)))
  (setq len_data (subst new_hc old_hc len_data))
  (entmod len_data)
  (setvar "CMDECHO" 1)
  (princ)
)

勿驳

[能不能传一个AUTOCAD2005的板本给我?非常谢谢~~~QQ378494394

ll_j

最初由 yucheng920 发布
[B]我刚在论坛上求教一个标注弧长的命今，有人给我这样一个PHP

请告诉我一直这种代码怎么用

(defun c:yhDIM ()            ;弧长标注
  (setq en (entsel "对象: "))
  (setq pt (getpoint "选点: "))
  (s... [/B]

这是一个Lisp程序，你保存为一个后缀名为.lsp的（文本格式）文件（如yhdim.lsp），以后在acad中使用appload加载，加载后使用yhdim命令对圆弧进行标注。

yucheng920

非常感谢楼主的解释，我以经会用了，相信网上的许多程序都是如些用法吧。我以后得多多向你学习。
关于2楼楼主的问题：我这里有AutoCAD2005，是前天从网上下的。用起来还不错，介意去下一个，你叫我传一个给你，我没很愿意。不过你得先告诉我怎么传给你

勿驳

QQ378494394