社区 › AutoLISP/Visual LISP 编程技术 › 想求一个LISP，请各路大神伸出援手

jevnchen0720 发表于 2015-1-2 12:34:23

想求一个LISP，请各路大神伸出援手

想通过LSP达到以下功能，
输入快捷键XXT，
用鼠标点选图块，并提取图块的比例系数，XYZ，随便其中一个都行，
通过图块的比例，设定标注比例，标注比例预设值为2.5，
请各路走过路过，能指点一二，万分感谢！

鱼与熊掌 发表于 2015-1-2 15:02:43

这个怎么搞我也不知道

鱼与熊掌 发表于 2015-1-2 15:56:56

目测是41.42.43.祖玛。

e2002 发表于 2015-1-2 16:11:17

猜测一下你的需求，建议使用 Annotative 特性来作。

鱼与熊掌 发表于 2015-1-2 20:18:32

(defun c:tt(/ enb)
        ;(cxsta)
        (prompt "魚與熊掌插件定製 QQ:775452144\n")
        (setq enb(car(entsel "选择图块\n")))
        (setvar "dimscale" (cx-dxf 41 enb ))
        (setvar "textsize" (* 3 (cx-dxf 41 enb )))
        (prompt (strcat "标注比例修改为【1:"
                        (rtos (getvar "dimscale") 2 0)
                        "】,当前文字高度修改为"
                        (rtos (* 3 (getvar "dimscale")) 2 0)
                )
        )
        (princ)
        ;(cxend)
)

(defun cx-DXF ( code ename / ent lst a)
        (if        (= (type code) 'LIST)
                (progn
                        (setq ent (entget ename)
              lst '()
                        )
                        (foreach a code
                          (setq lst (cons (list a (cdr (assoc a ent))) lst))
                        )
                        (reverse lst)
                )
                (if (= code -3)
                        (cdr (assoc code (entget ename '("*"))))
                        (cdr (assoc code (entget ename)))
                )
        )
)

查看完整版本: 想求一个LISP，请各路大神伸出援手