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

userzhl

(defun c:aa (/ lx xx lay D l)
  (zhl_registry)
  (setvar "cmdecho" 0)
  ;(while (= ent nil)
    (setq ent (car (entsel "\n选择要改变填充比例的对象：")))
  ;)
  (initget "A S")
  (SETQ XX (GETkword "\n请选择:[改变所有此类填充(A)/<该变选择>]"))
  (princ)
  (if ent
    (progn
      (setq d (getdist "\n指定周期长度: "))
      (setq lst (entget ent))
(setq l (cdr (assoc 46 lst)))
(setq name (cdr (assoc 2 lst)))
(if (= xx "A")
 (SETQ ent (ssget "x" (list (cons 2 name))))
      )
      (command "-hatchedit" ent "p" name (/ d l) "")
    )
  )
  (print)
)

7686599

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

userzhl

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

userzhl

高手都不来帮看看呢，这对我很重要哦。