明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1455|回复: 8

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

 关闭 [复制链接]
发表于 2013-11-1 13:41:24 | 显示全部楼层 |阅读模式
■■■■ 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
也就是说现在外部参照还绑定着的?
那应该是不让你改它的
 楼主| 发表于 2013-11-1 15:44:14 | 显示全部楼层
[OWEN7][qqou7]clever 15:44:14
DocBar_2004.arx
谁有这个 不过期的
 楼主| 发表于 2013-11-1 16:22:08 | 显示全部楼层
[simpleye][simpleye]郑大钱 16:22:08
有谁知道这些(23 "Opcode103" 20) (84 "Opcode103" 14)代码是什么意思???
[NJZX05]剑无锋 16:23:38
没见过,你是不是少了什么
 楼主| 发表于 2013-11-1 16:47:08 | 显示全部楼层
[HGHG011]s 16:47:08
supermemo 学习论坛
http://emagic.org.cn/?fromuid=893947
 楼主| 发表于 2013-11-1 17:44:03 | 显示全部楼层
■■■■ 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))
)
帮忙看下这个程序是做什么用的,大大们
 楼主| 发表于 2013-11-1 18:34:22 | 显示全部楼层
[why1025][7299969]人生 18:34:22
怎么用
 楼主| 发表于 2013-11-1 19:26:19 | 显示全部楼层
[野狼谷]笨鸟 19:26:19
(setq    ptlist (vlax-safearray->list
         (vlax-variant-value
           (vlax-get-property
             (vlax-ename->vla-object ent)
             'Coordinates
           )
         )
           )
  )
 楼主| 发表于 2013-11-1 19:41:04 | 显示全部楼层
[野狼谷]笨鸟 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 错误。未提供说明。”
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 03:52 , Processed in 0.311207 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表