userzhl 发表于 2007-7-27 18:17:00

[求助]哪位高手请帮忙看看,出错了.

本帖最后由 作者 于 2007-7-28 8:07:18 编辑 <br /><br /> (defun c:aa (/ lx xx lay D l)<br/>&nbsp; (zhl_registry)<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; ;(while (= ent nil)<br/>&nbsp;&nbsp;&nbsp; (setq ent (car (entsel "\n选择要改变填充比例的对象：")))<br/>&nbsp; ;)<br/>&nbsp; (initget "A S")<br/>&nbsp; (SETQ XX (GETkword "\n请选择:[改变所有此类填充(A)/&lt;该变选择&gt;]"))<br/>&nbsp; (princ)<br/>&nbsp; (if ent<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq d (getdist "\n指定周期长度: "))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lst (entget ent))<br/>(setq l (cdr (assoc 46 lst)))<br/>(setq name (cdr (assoc 2 lst)))<br/>(if (= xx "A")<br/>&nbsp;(SETQ ent (ssget "x" (list (cons 2 name))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "-hatchedit" ent "p" name (/ d l) "")<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (print)<br/>)

7686599 发表于 2007-7-27 18:40:00

没看懂。 说说条件，结果，或是帖个图看看。

userzhl 发表于 2007-7-28 08:10:00

按鼠标所点取距离,确定填充单位比例

userzhl 发表于 2007-7-29 18:02:00

[求助]

高手都不来帮看看呢，这对我很重要哦。
页: [1]
查看完整版本: [求助]哪位高手请帮忙看看,出错了.