AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

【已解决】如何用Alisp代码自动拾取对象 比如“线(Line)”

上一篇主題 下一篇主題 向下

【已解决】如何用Alisp代码自动拾取对象 比如“线(Line)”

發表 由 cvi001 于 2011-08-29, 10:59

(defun c:main()
;(setvar "cmdecho" 0)
;(setvar "blipmode" 0)
(setq AAA '(100 8000))
(setq AK01 100)
(setq AK02 8000)
(setq AAAend (list (+ AK01 0.175) (- AK02 0.245)))
(command "rectang" AAA AAAend "")
;
(setq Lw001 (list AK01 (- AK02 0.007)))
(setq Lw001end (list (+ AK01 0.175) (- AK02 0.007)))
(command "line" Lw001 Lw001end "")
;;;问题在下面这一行
(setq en (entsel "选择一条线(select a Line):"))
;这里需要使用者操作鼠标来选择一条线,但是我现在想实现如下语句类似的意思来选择这条已经画好的线来操作其“群码”,不知道有什么办法没有?或者我的出发点就有问题。(setq en (entsel (+ AK01 0.1) (- AK002 0.007)))
;;;


【解决方案】:
(setq w001 (list (+ ak01 1) (- ak02 0.35)))
(setq w001end (list (+ ak01 3.0) (- ak02 0.36)))
(command "mtext" w001 w001end "\\pxqc;工程名称" "")
(setq en (entlast))
(setq en_date (entget en))
(setq en_o040 (assoc 40 en_date))
(setq en_040 (cons 40 0.3))
(setq en_o071 (assoc 71 en_date))
(setq en_071 (cons 71 5))
(setq en_date (subst en_040 en_o040 en_date))
(setq en_date (subst en_071 en_o071 en_date))
(entmod en_date)

在这里感谢023yousu,给出了正确的解答。
原帖位置:鸿翔技术中心
最后推荐一本书,现阶段解决Alisp、Vlisp、DCL最好的书了。“AutoCAD完全应用指南”作者:吴永进、林美樱
avatar
cvi001
初級會員
初級會員

文章總數 : 20
年齡 : 33
來自 : 贵州
職業 : 贵州省地矿局职员
愛好 : AutoCAD LISP 编程
個性 : 无聊
使用年資 : 新手
使用版本 : 2011
積分 : 1
經驗值 : 2351
威望值 : 31
注冊日期 : 2011-08-25
男 水瓶座 豬

回頂端 向下

回復: 【已解决】如何用Alisp代码自动拾取对象 比如“线(Line)”

發表 由 Tiger&蘋果爸 于 2011-08-29, 13:27

謝謝您的回報~
也感謝您補上來源網址!
認同

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64643
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: 【已解决】如何用Alisp代码自动拾取对象 比如“线(Line)”

發表 由 cvi001 于 2011-08-29, 13:51

Tiger&蘋果爸 寫到:謝謝您的回報~
也感謝您補上來源網址!
認同

不知道Tiger是不是能解释一下呢?
或者用什么便捷的方式能实现application自动存盘成不同的文件名的文件??
saveas 后面只支持简单的文件名存储?
能不能实现变量存储的方法?或者怎么样才能支持变量存储呢?

现在都没有找到能完成说明各种指令使用的详细方法,所以很纠结各种命令的表现形式。
avatar
cvi001
初級會員
初級會員

文章總數 : 20
年齡 : 33
來自 : 贵州
職業 : 贵州省地矿局职员
愛好 : AutoCAD LISP 编程
個性 : 无聊
使用年資 : 新手
使用版本 : 2011
積分 : 1
經驗值 : 2351
威望值 : 31
注冊日期 : 2011-08-25
男 水瓶座 豬

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章