2013-11-04 明经 AutoLISP 编程(102918348) 群聊记录：可以的，但是算法难度较大。一个不太靠谱的算法是：计算每个图形的外包矩形，然后

明经快报

■■■■ 13:35:19

(defun plinexy(e / a q m p);;;LWPolyline,POLYLINE顶点,去掉完全重合点
  (setq a(vlax-ename->vla-object e)
    q(vlax-safearray->list(vlax-variant-value(vla-get-Coordinates a)))
    m(vla-get-objectname a)a 0
    m(if(= m"AcDb3dPolyline")3 2))
  (repeat(/(length q)m)
    (cond((= m 2)(setq p1(list(nth a q)(nth(+ a 1)q))))
     ((= m 3)(setq p1(list(nth a q)(nth(+ a 1)q)(nth(+ a 2)q)))))
    (setq p(if(member p1 p)p(append p(list p1)))
      a(+ a m)))
  p)

[q3_2006]q2 13:36:58

去掉多段线多余点。。。除了OVERKILL有现成的函数没？？

明经快报

■■■■ 14:04:17

lastangle？

[328302216][328302216]小莫 14:07:19

(equal (type(setq aa "bbb")) str)  
(equal (type(setq aa "bbb")) "str")  这l两个怎么返回的都是nil
要怎么判断变量是否为指定的类型？

[328302216][328302216]小莫 14:09:22

居然是要这种 的...

■■■■ 14:10:00

不要也行，反正它就不理你

[野狼谷]笨鸟 14:11:49

[328302216][328302216]小莫 14:12:22

不说还真难想到是要这种的

明经快报

■■■■ 14:29:46

; 警告:    安全: 不能 LINK XX
;                符号被指定
这是个什么情况？

明经快报

[野狼谷]笨鸟 15:53:33

教训 分享：
  ;; 设置对象捕捉模式

  (setq Cmdecho_mode (getvar 'Cmdecho))
  (if (= Cmdecho_mode 1)
    (setvar 'Cmdecho 0)
  )
  ;; 关闭对话提示栏

;;;     (setvar 'Cmdecho 1)
与

      (setq    p1
         (getpoint "\n请画一条线：")
      )

      (command "LINE" p1 "W" 0.5"")
      (while (> (getvar "CMDACTIVE") 0) (command AUSE))
 ;; (princ "ok!!!!3333")
不能同时在一个函数里，不然出错。三天才发现是这个问题

明经快报

[328302216][328302216]小莫 16:15:36

谁有能用的不打开图纸批量替换多个dwg文件里的文字内容的程序，刚刚找了顾版的和狂刀的都提示错误

[328302216][328302216]小莫 16:17:24

不知道是不是 版本的问题，我的是cad2012

■■■■ 16:18:51

不开图的话一般不可能是纯lisp的，所用的方法多半会与arx相关，这就很容易绑定CAD版本

估计多半有点版本的因素在内吧

[yarp]潜水 16:25:37

[328302216]小莫(328302216)  16:15:50
谁有能用的不打开图纸批量替换多个dwg文件里的文字内容的程序，刚刚找了顾版的和狂刀的都提示错误

可以用纯lisp实现。

■■■■ 16:26:28

纯lisp也可以对没打开的图进行操作？

[yarp]潜水 16:26:40

可以啊。

■■■■ 16:27:20

很想知道其方法

[pzweng][pzweng]路人 16:27:28

■■■■ 16:29:21

一定不是INSERT的办法。因为INSERT和开图基本没什么区别，唯一区别就是还不如直接开图保险。因为INSERT后很可能引起线型比例变化，比较气人

[pzweng][pzweng]路人 16:29:33

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

[snddd2000]v_bat 16:30:44

其实还是打开图纸的，只是不显示出来吧

■■■■ 16:31:46

群昵称修改为“[论坛用户名]网名”格式，你们的怎么弄了这么长的，我弄了半天它写不下。。。

[328302216][328302216]小莫 16:32:05

[@406695843,@[yarp]潜水] 你弄过？

■■■■ 16:32:53

@[pzweng]路人 帮我改下吧，[llsheng_73]■■■■

[VBALISPER]恐龙 16:32:55

■■■■,少写几位

[yarp]潜水 16:33:13

弄过。
你以前不是说写什么地形地藉的呢，没弄啦？

[llsheng_73]■■■ 16:33:34

少了那不只有两个只能等碰了，不能开杠

[328302216][328302216]小莫 16:33:58

[llsheng_73]■■■ 16:34:22

谢谢，少了一个问题不在，在摸一个回来开杠

问下，用LISP怎么不开图对它进行操作？

[pzweng][pzweng]路人 16:35:25

论坛上有

[llsheng_73]■■■ 16:35:32

特别是宗地图的处理不开图肯定比insert进来改了再WBLOCK出去要安全得多，但就是不会

[328302216][328302216]小莫 16:35:37

潜水  把你以前弄的发上来给研究研究

[llsheng_73]■■■ 16:35:40

我去找找

[pzweng][pzweng]路人 16:35:58

这种操作不行

[llsheng_73]■■■ 16:36:34

也就是打开后不能修改它？

[yarp]潜水 16:36:38

我以前用perl操作activex接口弄的。

[pzweng][pzweng]路人 16:37:04

可以做一些操作

[llsheng_73]■■■ 16:38:28

是用ObjectDBX的办法？

[llsheng_73]■■■ 16:40:20

ObjectDBX据说图元多了要弄起比较麻烦，因为没有选择集，只能遍历

[pzweng][pzweng]路人 16:42:35

dui

[pzweng][pzweng]路人 16:43:08

是的

[llsheng_73]■■■ 16:44:01

但对于宗地图倒真合适，因为一般情况下宗地图内不可能有太多的东东，遍历起来倒不怎么费时

[328302216][328302216]小莫 16:44:47

看来还是以后再研究这个了 ...

[llsheng_73]■■■ 16:45:33

不过处理的过程要跟处理选择集反过来，以前是把要处理的弄一个选择集里一个个处理，现在得看到什么马上进行相应和处理，总不可能多遍历几次吧

[llsheng_73]■■■ 16:47:42

这个应该好好研究下，很适用

明经快报

[why1025][7299969]人生 18:27:26

(defun ptget (en /  ptlist )
  (setq ptlist nil)
  (foreach n (entget en)
    (if    (= 10 (car n))
      (setq ptlist (cons (cdr n) ptlist))
    )
  )
  ptlist
(reverse ptlist)
)这个函数怎么用啊

[q3_2006]q2 18:37:13

(ptget (car (entsel)))

明经快报

[VBALISPER]恐龙 22:49:48

中毒

[浮世小半生]X 22:50:21

解决方法只能关闭杀毒？

[VBALISPER]恐龙 22:52:32

是

啥子命令不能用?

不会是群众的眼睛是雪亮的吧

[浮世小半生]X 22:53:46

就是一些基本的命令

群众的眼睛是雪亮这个病毒很少看见