明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 808|回复: 7

[LISP群(1)] 2013-09-23 明经 AutoLISP 编程(102918348) 群聊记录:上面几行,应该放在搜索页面

 关闭 [复制链接]
发表于 2013-9-23 10:26:48 | 显示全部楼层 |阅读模式
[h2o] 10:26:48
上面几行,应该放在搜索页面
davide 10:32:01
(defun c:tt1()
(setq obj (vlax-ename->vla-object (entlast)))
      (setq
        ros (vlax-variant-value (vla-GetDynamicBlockProperties obj))
      )
      (setq oSBProperty (vlax-safearray-get-element ros 0))  ;;;起始为0,+2为下一属性值,以此类推
      (vla-put-value
        oSBProperty
        (vlax-make-variant
          200.0                                                                       ;;;修改的值
          (vlax-variant-type (vla-get-value oSBProperty))
        )
      )
)
这个可以修改动态块属性   谁知道翻转之类的怎么改?
 楼主| 发表于 2013-9-23 10:50:25 | 显示全部楼层
[emk]小8点 10:50:25
请教下,n个bmp图标文件打包成*.dll后,在lsp、dcl中如何调用?
[emk]小8点 10:51:30
n个sld文件打包成*.slb后,在lsp、dcl中如何调用?
前面的说错了
是幻灯片库内的文件调用
[xiaomm250][lisp_](car (entsel)) 11:00:23
如何用lisp把某一个图层弄打开,别的图层全部关闭?也就是图层隔离
davide 11:05:11
网上有的
[cie0588][cie0588] 11:05:19
先把所有图层关闭。再打个某个图层。
[vormittag]桔子 11:12:09
cad自己就有这功能还要开发么?
[阿然][阿然] 11:12:14
(defun c:tt (/ ent layname lays lay)
  (if (setq ent (car (entsel " 选择保留的图层:")))
    (progn
      (setq layname (strcase (cdr (assoc 8 (entget ent)))))
      (setq lays (vla-get-layers
           (vla-get-ActiveDocument (vlax-get-Acad-Object))
         )
      )
      (vlax-for    lay lays
    (if (/= (strcase (vla-get-name lay)) layname)
      (vla-put-layeron lay :vlax-false)
    )
      )
    )
  )
)
[xiaomm250][lisp_](car (entsel)) 11:13:52
我的意思是我把图层名给你,然后你孤立这个图层
[阿然][阿然] 11:15:21
方法在上面了,怎么获得图层名自己改改
 楼主| 发表于 2013-9-23 11:34:03 | 显示全部楼层
[亮]123379932 11:34:03
vb.net 里面有没有靶框拾取对象事件
[亮]123379932 11:35:39
大侠呢
[野狼谷]笨鸟 11:43:28
幸福的像花一样,花的像幸福一样!
 楼主| 发表于 2013-9-23 17:19:05 | 显示全部楼层
[no13bus]13公交车 17:19:05
[qqimg]201309/{E0B63133-D3D3-70BB-35C0-373254FD4DBE}.jpg[/qqimg]
(setq pts (get-pline-point (car (entsel))))
   (setq ssObjects (ssget "_CP" pts)) ; 创建选择集 ssObjects
[no13bus]13公交车 17:23:27
这样的代码为啥选择选择不上图元
[pzweng][pzweng]路人 17:23:55
re一下
 楼主| 发表于 2013-9-23 20:40:30 | 显示全部楼层
[野狼谷]笨鸟 20:40:30
ssget "_CP" pts
应该不用_
 楼主| 发表于 2013-9-23 21:30:07 | 显示全部楼层
[丽丽星空] 21:30:07
我的CAD出现了问题,现在用命令不会搜索文件夹插入块,而是弹出插入块的对话框,怎么回事?是哪里设置问题?
[tiyi8888]永远D痛 21:31:23
-。
-.
[pzweng][pzweng]路人 21:31:52
有一个系统变量
不过忘了
你自己一个一个查去吧
[丽丽星空] 21:40:05
如同大海捞针
[丽丽星空] 21:42:18
[qqimg]201309/{14D392E8-0849-6FD6-DB84-1CC6C5391CD8}.jpg[/qqimg]这个不可选?
 楼主| 发表于 2013-9-23 22:22:59 | 显示全部楼层
[邹锋]Tony 22:22:59
表中有多少个元素用哪个函数
[pzweng][pzweng]路人 22:26:38
length
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 03:12 , Processed in 0.161471 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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