请求前辈们帮忙改一下。

45296876

(defun C:ccc (/ E I O SS WID X)
  (princ
    "\n"
  )
  (if (and (setq WID (getreal "\n输入文字高度: "))
   
       (setq SS (ssget '((0 . "INSERT") (66 . 1))))
      )
    (repeat (setq I (sslength SS))
      (and (setq E (ssname SS (setq I (1- I))))
      (setq O (vlax-ename->vla-object E))
    (mapcar
         '(lambda (X)
        (vla-put-height X WID)
     
          )
         (vlax-safearray->list
           (vlax-variant-value (vla-getattributes O))
         )
       )
      )
    )
  )
  (princ)
)






这是一个改属性块内文字字高的，我是从别人那里套来的。本来是改字宽的,我是一个一个的查表查到了那个字高的函数。替换了一下，只是不明白里面为什么这样写，这样写的意思不太明白，有没有大侠帮忙转成纯LISP形式呢？最好是每句话的意思都注解上，让我这样笨的人看得懂就行。简单的绘制门窗类的LISP倒是会写，都是死记硬背的。

阿霸jun

自己查函数的解释很快就懂了撒～～～～

45296876

查的表，有的话还是看不明白，可能是本人比较笨吧，脑子转不过来弯的关系。哎，慢慢练习吧。没什么爱好，最近迷上这东西了。

45296876

阿霸jun 发表于 2013-4-7 16:18
自己查函数的解释很快就懂了撒～～～～

实在搞不明白，要是有一个纯LISP的我还能一一对照一下，慢慢研究，应该 会有懂的一天。我已经研究了十来天了，硬是没整明白，可能是我太笨了。哎。