明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1338|回复: 10

[LISP群(1)] 2013-08-17 明经 AutoLISP 编程(102918348) 群聊记录:请问2014中如何像06一样调出工具栏

 关闭 [复制链接]
发表于 2013-8-17 09:39 | 显示全部楼层 |阅读模式
[夏生生][x_s_s_1]生无可恋 09:39:31
请问2014中如何像06一样调出工具
[qqimg]201308/{427FF399-712D-1689-0081-895D3A2E668A}.jpg[/qqimg]
如这样
[jltx123456]CAD 09:41:04
用的是2004差十年了
[夏生生][x_s_s_1]生无可恋 09:43:08
我是在三维建模的模式下面
 楼主| 发表于 2013-8-17 11:45 | 显示全部楼层
[LC100]建筑设计 11:45:33
(defun c:crc ( / ck cg p1 p1x p1y wk nk)
  (ztc_c);通用
    (setq ck (getdist " 门窗宽度:")
      cg (getdist " 门窗高度:")
      );
    (setq ss (ssadd)) 
    (command "RECTANG" "_non" "0,0" (list (+ 0 ck) (+ 0 cg)));画窗
    (setq wk (entlast))
    (setq ss (ssadd wk ss))
    (command "OFFSET" "50" "non" "0,0" "non" (list (+ 0 100) (+ 0 100)) "");选择框不要的
    (setq nk (entlast)) 
    (setq ss (ssadd nk ss))
    (command "move" ss "" "non" "0,0")
  );end
那个添加集错了。
[ahwx0814]雨中漫 11:48:13
(setq ss (ssadd wk ss)) --->>(ssadd wk ss)
 楼主| 发表于 2013-8-17 15:40 | 显示全部楼层
[Angel1995][Angel1995]Angel 15:40:42
求助大家 

有没有办法判断是一次性框选还是框选一个又再次框选的呢?
[流动的清泉][权心权意] 15:42:26
ssget   和  entget  吗!
选择方式?
[Angel1995][Angel1995]Angel 15:43:13
不是啊
是SSGET
[NewB]长衫罩子龙 15:43:23
ssget能不能添加文字提示?
[Angel1995][Angel1995]Angel 15:44:00
有三个对象 可以一次性框选完
也可以框选了一个 再框选其他两个

请问怎么判断
[流动的清泉][权心权意] 15:45:04
ssget,选择后,在用while判断?
[NewB]长衫罩子龙 15:46:39
情况有些复杂,闹不懂。
[Angel1995][Angel1995]Angel 15:47:11
 SSGET貌似不能了
[NewB]长衫罩子龙 15:48:16
需要高级操作手拓展一下ssget的深度选择
[流动的清泉][权心权意] 15:53:21
你说的是什么意思啊!  判定, 判定什么说清楚点
 楼主| 发表于 2013-8-17 16:05 | 显示全部楼层
[pzweng][pzweng]路人 16:05:30
有个函数
现在忘了
[pzweng][pzweng]路人 16:07:14
可以返回ssget的选取方式
[pzweng][pzweng]路人 16:09:21
ssnamex
找到了
[【KAIXIN】] [【KAIXIN】]炫翔 16:10:28
[【KAIXIN】] [【KAIXIN】]炫翔 16:12:07
一直没用过这函数
[【KAIXIN】] [【KAIXIN】]炫翔 16:18:11
是可以
[qqimg]201308/{57944507-718E-ECCD-54C0-7E88D28CF92C}.gif[/qqimg]
一个SSGET
想不到这函数还有这用处
[流动的清泉][权心权意] 16:19:28
好像和 find  的作用?
一样
[【KAIXIN】] [【KAIXIN】]炫翔 16:20:05
[qqimg]201308/{7C06ECC6-4CE8-71BD-C6E8-F8E529AAD023}.gif[/qqimg]
[leyouyou001]youyou 16:22:17
这个不错,可以分享吗
[【KAIXIN】] [【KAIXIN】]炫翔 16:22:27
有漏洞
[leyouyou001]youyou 16:22:38
那你修补一下了
[【KAIXIN】] [【KAIXIN】]炫翔 16:22:44
一次性框选的话 还是会获取一个图元
[【KAIXIN】] [【KAIXIN】]炫翔 16:23:19
这个只是获取第一次的框选选取的那个图元
[leyouyou001]youyou 16:23:20
[【KAIXIN】] [【KAIXIN】]炫翔 16:24:23
似乎可以加强判断
琢磨下
[【KAIXIN】] [【KAIXIN】]炫翔 16:26:45
判断两个图元名一样 大家可有想过
[pzweng][pzweng]路人 16:26:48
看不懂
[HNFSF](看海) 16:27:49
(setq ss1 (ssget ":s")) ss2 (ssget))
这样子可以不
[【KAIXIN】] [【KAIXIN】]炫翔 16:28:12
两码时
[HNFSF](看海) 16:28:18
这个没有漏洞
[【KAIXIN】] [【KAIXIN】]炫翔 16:28:31
(vla-put-color (vlax-ename->vla-object (cadr(car (ssnamex (setq ss (ssget)) 0))))1)
你玩玩
[【KAIXIN】] [【KAIXIN】]炫翔 16:30:08
不能判断图元名是否一样 就判断图元的属性
[pzweng][pzweng]路人 16:35:04
判断句柄呗
 楼主| 发表于 2013-8-17 17:16 | 显示全部楼层
[【KAIXIN】] [【KAIXIN】]炫翔 17:16:49
 楼主| 发表于 2013-8-17 19:42 | 显示全部楼层
[邹锋]Tony 19:42:30
是什么东西来的
 楼主| 发表于 2013-8-17 21:34 | 显示全部楼层
[Angel1995][Angel1995]Angel 21:34:07
求助 "5" 怎么转换成 5
是(5)
就是字符转为表
必须要用LIST吗?
 楼主| 发表于 2013-8-17 22:00 | 显示全部楼层
[啵浪鼓] 22:00:24
是的
(list (atoi "5"))
 楼主| 发表于 2013-8-17 23:16 | 显示全部楼层
[zk2140]Kevin 23:16:31
(GetAPPPath) 获取了文件夹的路径,现在想要在此路径的后面加上子文件夹

求指教
[yybu]yy 23:19:49
有谁下了论坛里的[qqimg]201308/{E2E983EC-8138-B4C5-DC8F-9DA11BAC11D8}.jpg[/qqimg]这个没,论坛头下不了了,望分享!
[zk2140]Kevin 23:23:32
(strcat (GetAPPPath) "子文件夹")
这样是否可行
[啵浪鼓] 23:25:55
行不行,你试一下就知道,我没这个函数,没法知道!
按道理是可行的,你在CAD命令行输入看返回值
[pzweng][pzweng]路人 23:29:58
(GetAPPPath)是什么函数
[zk2140]Kevin 23:31:28
经测试,成功了
[xiabin68]测绘 23:38:58
各位在字符串中进行替换用什么命令,,
[xiabin68]测绘 23:39:33
如"w-45"   换成  "f-45")
 楼主| 发表于 2013-8-17 23:52 | 显示全部楼层
[caoyin][caoyin] 23:52:49
[qqimg]201308/{A0F1C10D-9AA3-E1C9-2908-C67BB6AD4E2E}.gif[/qqimg]
[pzweng][pzweng]路人 23:55:46
[qqimg]201308/{429CAA22-732D-0514-2519-B0BCEE058C58}.gif[/qqimg]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-7 10:45 , Processed in 0.210994 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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