2013-09-27 明经 AutoLISP 编程②(177027547) 群聊记录：哪位大侠知道怎么在CAD中区域查找指定的文字

明经快报

[vitoliming]fly!!!tqj 11:27:31

哪位大侠知道怎么在CAD中区域查找指定的文字

要统计数量

[smartstar][smartstar]方舟 11:31:00

find

[vitoliming]fly!!!tqj 11:31:31

有没有好的lisp程序？

明经快报

[goubeishu][LISP]fine 13:01:06

(SETQ DCL_DL (LOAD_DIALOG (STRCAT **TYDRIVE** '"\\TYCAD-WORK\\TYCAD")))
为什么调用对话框要用这种语句？

明经快报

[hehoubin][hehoubin]哈维斯 13:25:41

我有个增加顶点的程序

想弄个删除指定的顶点的程序。高手们帮忙看看

(defun C:xv (/ EN OBJ T P)
  (if (and (setq EN (entsel "\n选择多选线: "))
           (setq EN (car EN))
           (sssetfirst nil (ssadd EN))
           (setq OBJ (vlax-ename->vla-object EN))
           (or (= (vla-get-objectname OBJ) "AcDbPolyline")
               (and (princ "\n所选的对象不是多段线。") nil)
           )
      )
    (while (setq T (getpoint "\n指定新顶点: "))
      (setq T (trans T 1 0)
            P (vlax-curve-getclosestpointto OBJ T))
      (vlax-invoke
        OBJ
        'ADDVERTEX
        (1+ (fix (vlax-curve-getparamatpoint OBJ P)))
        (list (car T) (cadr T))
      )
    )
  )
  (sssetfirst)
  (princ)
)

明经快报

[梦起岚山]纯一 15:09:49

我想请教一下

[qqimg]201309/{FEF706D4-7779-4EAA-3F0D-5C3A88197A5F}.jpg[/qqimg]

这个隐藏的特性工具条

光标放上去的时候会自动拉开

[qqimg]201309/{2B9B2BD5-70F5-81AC-2AA7-92572E6722B1}.jpg[/qqimg]

我想知道，能不能调整一下他的反应速度

光标放上去就弹出

离开就立马收回去

现在也能收回去

但是比较慢

我想能不能调整这个的反应速度

明经快报

[goubeishu][LISP]fine 18:22:13

李师傅 09-27 18:20
监狱中，一小偷问：哥们都是为啥进来的？
    薄熙来：因为高调！
    雷政富：因为裸照！
    李天一：因为打炮！
    刘志军：因为钞票！
    白培中：因为被盗！
    杨达才：因为微笑！
    小偷感慨：这是什么世道，鸡毛蒜皮的事都要坐牢！
    众人问：你为何进来？
    小偷：因为感冒！
    众：咋？
    小