2013-11-01 明经 AutoLISP 编程(102918348) 群聊记录：360手机助手怎么跟LISP攀上关系了[face26.gif]

明经快报

■■■■ 13:41:24

360手机助手怎么跟LISP攀上关系了

■■■■ 13:43:07

迎使用明经CAD社区QQ机器人，有什么问题请联系...

弱弱的问下这个社区机器人是什么

[lisp-study]jun 13:43:27

明镜快报

[qqimg]201311/{CE8452B3-4705-BF22-7F44-034352BDA7AA}.jpg[/qqimg]

［wei15007676360］L 13:43:43

[qqimg]201311/{1E05787B-0B04-05A4-18C4-C227927A3D74}.gif[/qqimg]

■■■■ 13:45:08

VLA的函数去哪找参考资料啊，好难找一样，不想看PDF的，想找CHM的

■■■■ 13:48:24

[qqimg]201311/{C511B121-0B4F-CA35-1E72-94FAF0A4F9C4}.jpg[/qqimg]谁有没类似这个的CHM版本的？

[dafeilang][dafeilang]++bee 13:49:33

以后应该出台法律，这个软件帮助文档不汉化的不许销售

[no13bus]13公交车 13:50:09

[qqimg]201311/{DD977CF0-2BC0-9C43-615F-E9F50A796091}.jpg[/qqimg]

■■■■ 13:50:36

没法律还好点，有了法律就有人老想着钻空子

■■■■ 13:51:13

如果没有法律自然也就没有犯罪

■■■■ 13:51:53

所以法律是犯罪的根源，罪犯们如是说

■■■■ 13:53:15

比如有交警的地方十有八九正在堵车，所以交警是交通堵塞的主要原因---司机们这样说

[OWEN7][qqou7]clever 14:01:57

为什么 图层全部都加了前缀

怎么样才能批量修改

[qqimg]201311/{B80EBAAE-D81A-D0DD-FADE-C6A6FEFBAE95}.jpg[/qqimg]

■■■■ 14:03:55

你老妈子个看着有点象是外部参照的图层

你那个。。。错得太离谱了

■■■■ 14:05:01

一般说来可以不让你改它

■■■■ 14:06:27

一般说来可能不让你改它
当然，如果是从外部参照中复制过来了对象，最后又卸载了外部参照的话，那应该是可以改的

[OWEN7][qqou7]clever 14:08:36

我是因为图形不能打开，只能用外部参照绑定

■■■■ 14:09:15

也就是说现在外部参照还绑定着的？

那应该是不让你改它的

明经快报

[OWEN7][qqou7]clever 15:44:14

DocBar_2004.arx

谁有这个 不过期的

明经快报

[simpleye][simpleye]郑大钱 16:22:08

有谁知道这些(23 "Opcode103" 20) (84 "Opcode103" 14)代码是什么意思？？？

[NJZX05]剑无锋 16:23:38

没见过，你是不是少了什么

明经快报

[HGHG011]s 16:47:08

supermemo 学习论坛
http://emagic.org.cn/?fromuid=893947

明经快报

■■■■ 17:44:03

;; ! Argument : 'pt'    - point ot be tested 
;; !            'vlist' - List of points forming the polgon
;; !            'flag'  - If 'T', point on the line is inside else outside
(defun 3dm_pl_region_GE_PtInPoly(pt vlist flag / NumInts diff cnt online p1 p1code p1x p1y p2 p2code p2x p2y ttl x xdiff xx y ydiff Idx len)
  (if (not(equal(car vlist)(last vlist)))(setq vlist (append vlist(list(car vlist)))))
  (setq X(car pt)y(cadr pt)len(length vlist)cnt 0 Idx 0    NumInts 0 OnLine nil)
  (while (and(not OnLine)(< cnt len))
    (setq p2(nth cnt vlist)p2x(car p2)p2y(cadr p2)
      p2code(if(>= p2y y)2 0)
      p2code(if(>= p2x x)(1+ p2code)p2code))
    (if p1(setq diff (boole 6 p1code p2code)
        ydiff (boole 1 diff 2)
        xdiff (boole 1 diff 1)
        p1x (car p1) p1y (cadr p1)))
    (if(= ydiff 2)
      (progn(setq xx(+ p1x(*(/(- p2x p1x)1.(- p2y p1y))(- y p1y))))
    (cond((equal xx x 0.0001)(setq online T))
         ((> xx x)(setq NumInts (1+ NumInts))))
      ))
    (if(and(= xdiff 1)(= y p1y p2y))(setq OnLine T))
    (setq p1code p2code p1 p2 cnt (1+ cnt))
  )
  (if Online flag(=(boole 1 NumInts 1)0001))
)
帮忙看下这个程序是做什么用的，大大们

明经快报

[why1025][7299969]人生 18:34:22

怎么用

明经快报

[野狼谷]笨鸟 19:26:19

(setq    ptlist (vlax-safearray->list
         (vlax-variant-value
           (vlax-get-property
             (vlax-ename->vla-object ent)
             'Coordinates
           )
         )
           )
  )

明经快报

[野狼谷]笨鸟 19:41:04

用 Gu_xl 这个也还行不行
得到多段线坐标列表：
(vlax-safearray->list(variant-value(vla-get-coordinates (vlax-ename->vla-object en))))

[野狼谷]笨鸟 19:45:24

发表于 2004-2-8 21:03:00|只看该作者
POLYLINE线是可以使用vla-get-Coordinates的。


找到问题原因：


　　对同一POLYLINE使用VLA-GET-COORDINATES后，不能用PEDIT改变拟合状态，否则再用VLA-GET-COORDINATES就会出现“Automation 错误。未提供说明。”