明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1984|回复: 19

[LISP群(1)] 2013-07-01 明经 AutoLISP 编程(102918348) 群聊记录:求助,谁有花园小径的代码.我的gpmain.lsp出错了.又不想重装CAD

 关闭 [复制链接]
发表于 2013-7-1 00:03:46 | 显示全部楼层 |阅读模式
[VBALISPER]恐龙 00:03:46
求助,谁有花园小径的代码.我的gpmain.lsp出错了.又不想重装CAD
 楼主| 发表于 2013-7-1 05:59:03 | 显示全部楼层
[HNFSF](看海) 05:59:03
很多人都写过,但是没有源码,
 楼主| 发表于 2013-7-1 08:34:19 | 显示全部楼层
[天财]天财 08:34:19
(defun c:fts()
  ;(setq orig_cmd (getvar "cmdecho"))
  ;(setvar "cmdecho" 0)
  (setq elist (tblnext "STYLE" T))
  (while (/= elist nil)
     (setq nm (cdr (assoc 2 elist))
           en (cdr (assoc 3 elist)) 
           cn (cdr (assoc 4 elist))
           enl (strlen en)
      )
(if (and 
    (/= en nil)
    (= cn nil)
    (= (findfile en) nil)
    (= (strcase (substr en (- enl 2))) "SHX")
    ) 
(command "_style" nm "tssdeng.shx" "0.0" "0.7" "" "" "" "")
); end if
(if (and 

    (/= cn nil)
    (= (findfile cn) nil)
    ) 
(command "_style" nm "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
) ;end if
(setq elist (tblnext "STYLE"))
  );end while
 ;(setvar "cmdecho" orig_cmd)
)
这个是做什么的
 楼主| 发表于 2013-7-1 08:48:29 | 显示全部楼层
[ken_1_1] 08:48:29
change命令用法
 楼主| 发表于 2013-7-1 08:58:44 | 显示全部楼层
[286168051]勤龙 08:58:44
OPENDCL 培训班  324119737群
第一课 一个HelloWorld 的程序
第二课 非模态对话框的设计
第三课 可停靠窗体
第四课 面板
第五课 文件选择对话框
第六课 选项卡扩展的使用
第七课 文本控件的使用
第八课 文字按钮
第九课 图像按钮的使用
第十课 文本框的使用
第十一课 多选与单选
第十二课 下拉框的使用
第十三课 列表框的使用
第十四课 滑动条
第十五课 图像控件
第十六课 选项卡控件
第十七课 日历
第十八课 目录树
第十九课 进度条
第二十课 HTML控件
第二十一课 滑轮
第二十二课 图块控件
第二十三课 幻灯控件
第二十四课 DWG控件
第二十五课 列表浏览控件
第二十六课 AcTivex控件
第二十七课 图形列表控件
第二十八课 AVI控件
第二十九课 GRID控件
第三十课 分隔控件
第三十一课  填充控件
第三十二课 打包VLX
第三十三课 常用事件
第三十四课 常用ODCL函数
[天财]天财 09:04:30
没有加密
课程
 楼主| 发表于 2013-7-1 09:17:54 | 显示全部楼层
[阿然][阿然] 09:17:54
怎么给图元修改真彩色?
[阿然][阿然] 09:21:03
(setq color (vlax-create-object "AutoCAD.AcCmColor.19"))这个19应该是对应版本号吧?这个数字有没有办法获得?
[286168051]勤龙 09:22:00
,,,,
[vormittag]桔子 09:27:35
真彩色需要两个组码,62 和420
[caoyin][caoyin] 09:28:07
(atoi (getvar "AcadVer"))
[阿然][阿然] 09:28:10
桔子给举个例子吧
[vormittag]桔子 09:28:27
看高飞鸟的帖子。
[阿然][阿然] 09:28:52
谢谢曹老师
[仲文玉][仲文玉]wygjx 09:29:30
(atof (getvar "ACADVER"))
[soly2006]季鸟 09:29:51
这个更准,
[vormittag]桔子 09:31:07
[阿然][阿然] 09:31:21
多谢柚兄
[vormittag]桔子 09:31:53
[qqimg]oldimg/{F3710241-B851-5EA6-79E8-AAB91970A634}.gif[/qqimg]
[caoyin][caoyin] 09:32:07
[阿然][阿然] 09:32:56
420代表了rgb,那在有420的情况下,62代表什么?
[夏生生][x_s_s_1]生无可恋 09:40:07
62是必须有的,但值不是必要的
[阿然][阿然] 09:40:23
就是说无所谓取什么值?
[vormittag]桔子 09:41:42
不是的,两个值不配合是不行的。不信你把真彩色的图元改一下组码62试试,不会变颜色的。
[阿然][阿然] 09:42:48
那62和420怎么配合?高老师的函数只能算420,那有420的情况下,怎么算62?“
[夏生生][x_s_s_1]生无可恋 09:43:19
;;真彩色的含义
;;(+ (* BLUE 65536) (* GREEN 256) RED)
;;(+ (* 255 65536) (* 255 256) 255)=16777215
[夏生生][x_s_s_1]生无可恋 09:43:58
[qqimg]oldimg/{121ACCE2-B830-3421-928C-C9532D4E504B}.jpg[/qqimg]证明了62的值不是必须的
[阿然][阿然] 09:44:12
晕了
[caoyin][caoyin] 09:44:14
用vla吧
(defun c:tt (/ colobj obj)
(setq ColObj (vla-getinterfaceobject
               (vlax-get-acad-object)
               (strcat "AutoCAD.AcCmColor." (substr (getvar "AcadVer") 1 2))
             )
        Obj (vlax-ename->vla-object (car (entsel)))
)
(vla-SetRGB colObj 252 219 161)
(vla-put-TrueColor Obj colObj))
[阿然][阿然] 09:44:38
vla的我会了
[夏生生][x_s_s_1]生无可恋 09:44:52
(vla-SetRGB colObj 252 219 161)这个就比较直观
[caoyin][caoyin] 09:45:00
[vormittag]桔子 09:45:20
CAD索引色和RGB的对应关系我不清楚。
[caoyin][caoyin] 09:45:47
两者不一定可换算
只可近似模拟
[vormittag]桔子 09:46:20
是近似模拟,
[vormittag]桔子 09:46:50
但是如果两个数值不匹配,图元的颜色不会改变的。
[vormittag]桔子 09:47:40
很少用RGB,又不是画山水画,从没研究过。
[夏生生][x_s_s_1]生无可恋 09:48:14
我测试了修改62,对420无影响,且颜色不变
[vormittag]桔子 09:48:59
修改一下420呢?62是不是会自动更新?还是依然不变?
如果62能自动更新,那就无所谓了。
[夏生生][x_s_s_1]生无可恋 09:50:48
62自动更新
[阿然][阿然] 09:50:55
可以直接改420
62随便指定
[夏生生][x_s_s_1]生无可恋 09:51:10
不用去纠结62
[夏生生][x_s_s_1]生无可恋 09:51:41
这里不是麻烦的,麻烦的是填充的渐变色
[阿然][阿然] 09:56:25
恩,指定了420以后,可以不用纠结62的值,但是要有62
 楼主| 发表于 2013-7-1 10:10:00 | 显示全部楼层
[linshiyin2]大地 10:10:00
同志们,查找后定位改文字的程序有没有现成的,
查找到文字,然后定位该文字
[linshiyin2]大地 10:11:02
cad自带的只能查找到,不能定位啊,满图都是文字,眼睛要瞎啦
[ygp820601]风声 10:11:30
可以啊
[linshiyin2]大地 10:11:43
给个链接
[linshiyin2]大地 10:12:21
[qqimg]oldimg/{C74DEB10-7381-D526-20D5-82598AE3FED5}.jpg[/qqimg]
模仿这个就可以,或者简单点的
[ygp820601]风声 10:12:36
缩放为
[linshiyin2]大地 10:12:40
关键是能定位
[ygp820601]风声 10:12:42
[qqimg]oldimg/{5A210F33-32F1-01BF-AED2-8659ACF867F5}.jpg[/qqimg]
点一下就可以了
[linshiyin2]大地 10:13:11
了解
[xiaomm09]江湖 10:17:27
这哥们的普通话 有点意思。
[nicking]等 10:21:43
请教一下: 如何判断某一图层 ,在图纸中是否有对象存在?
[gtj116600]轶凡 10:21:45
请教一下
这个函数中的fun是什么意思呀
[nicking]等(418318129)  10:21:28
请教一下: 如何判断某一图层 ,在图纸中是否有对象存在?
[elitefish]信 10:23:03
ssget  8 . xxx 吧
[linshiyin2]大地 10:23:55
获取层挨个杀,或者管他有没有呢创建一个再说,有就不创建没有就创建一个层
[nicking]等 10:23:58
我要得到无对象的图层列表 这样是不是挺麻烦的 对有些做块了的 是不是会有问题
[nicking]等 10:25:20
我是想做个图层状态管理的小工具  如果不能判断 则会出现所有的图层状态都会保存(用词典保存)  这样pu就删不掉了
[gtj116600]轶凡 10:26:02
自个琢磨
[nicking]等 10:26:17
[elitefish]信 10:26:34
词典和图层删不掉有关么?
[nicking]等 10:28:59
譬如 “图层1” 在图纸中没有对象  ,

但是判断不出“图层1”有没有对象 

 也保存了“图层1”的相关信息到列表

 最后保存到词典中 

 这个“图层1” 此时被pu认为使用了  就pu不掉了视乎 

不知道我理解对不对
[gtj116600]轶凡 10:29:23
呵呵,上面的fun已经搞明白了
[nicking]等 10:29:46
我用的是高飞鸟兄的保存图层状态那个函数 :)
[gtj116600]轶凡 10:30:03
谢谢众位
[gtj116600]轶凡 10:31:02
能把高飞鸟兄版主的保存图层状态函数给个链接么
我看看
[nicking]等 10:34:06
高版主的在这个里面有收录:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96543
[kwok][kwok]巭隼 10:38:41
取得矩形的顶点后,可以用cp选中吗
(setq ss (ssget ""))
     (repeat (sslength ss)
    (setq ent (ssname ss n)
          n      (1+ n))
  (setq plts (get_pline-vertexs (car ent)))
 (setq ssal (ssget "_CP" plts))
)
上面代码不行,指点一下,谢谢
[kwok][kwok]巭隼 10:39:46
我想接下来,把每个矩形包括内的线都单独成组
[gtj116600]轶凡 10:41:43
没有问题
 楼主| 发表于 2013-7-1 11:26:17 | 显示全部楼层
[安柱]坐标零点 11:26:17
各位好,如何查看XP的Wifi 密码
本机已经连接上的
[雨的节奏][雨的节奏] 11:26:28
看不到
[安柱]坐标零点 11:26:34
是啊
只有星号
[VBALISPER]恐龙 11:26:42
找个软件来看.
[安柱]坐标零点 11:26:45
[qqimg]oldimg/{663F1CBC-AB2E-6470-9704-D3ED856E843C}.jpg[/qqimg]
找了几个,没用的
还是显示星号
[VBALISPER]恐龙 11:27:10
不过显示的也是16进制.可以复制.
[安柱]坐标零点 11:27:22
没用
要常规的
[VBALISPER]恐龙 11:27:56
wirelesskeyview
[安柱]坐标零点 11:28:08
这个显示十六进制的
手机用不了
[VBALISPER]恐龙 11:29:27
哦.是的.
 楼主| 发表于 2013-7-1 12:43:05 | 显示全部楼层
[天财]天财 12:43:05
(command ".chprop" ssa "C" "8" "")
单独改图层颜色是不是这样写
(command ".chprop" ssa "" "C" "8" "") 还是这样
[gtj116600]轶凡 12:46:26
这样(command ".chprop" ssa "" "C" "8" "") 还是这样
[天财]天财 12:46:58
[天财]天财 12:56:19
这一句有没错
[vormittag]桔子 12:56:39
错了
[天财]天财 12:57:51
哦 谢了
[天财]天财 12:58:35
如果分成两句是不是
[vormittag]桔子 12:59:05
也不行
[vormittag]桔子 12:59:54
tc_x是变量,要用的是变量值
 楼主| 发表于 2013-7-1 14:07:21 | 显示全部楼层
[Angel1995][Angel1995]Angel 14:07:21
请教大家一个问题: 框选两直线的一端,怎么样判断框选的两点 到底是起点还是终点呀
[gtj116600]轶凡 14:07:43
看dxf
10就是起点
[Angel1995][Angel1995]Angel 14:07:53
[qqimg]oldimg/{B18B0EDE-1B21-0AB6-9F6C-D24943022705}.jpg[/qqimg]
比如这个
[gtj116600]轶凡 14:08:02
11终点
[Angel1995][Angel1995]Angel 14:08:08
怎么看呀?
[gtj116600]轶凡 14:08:21
获取DXF码
[gtj116600]轶凡 14:08:58
呵呵,还有看点是否在矩形框内
[Angel1995][Angel1995]Angel 14:09:18
求指点
[Angel1995][Angel1995]Angel 14:12:11
看点是否在矩形框内
 这个怎么弄呀
就是怎么样知道框选的两个端点?
[gtj116600]轶凡 14:18:26
呵呵
[Angel1995][Angel1995]Angel 14:20:20
没人帮我
[gtj116600]轶凡 14:20:43
上班,忙呢
[Angel1995][Angel1995]Angel 14:20:52
实例一些吧,比如;框选两直线连线
[qqimg]oldimg/{DD39AF49-6BB8-D729-DF16-55BD1FF530E7}.jpg[/qqimg]
黄色为框选的线
[gtj116600]轶凡 14:23:36
呵呵,我给你弄一个吧
[Angel1995][Angel1995]Angel 14:23:54
先谢谢了
[gtj116600]轶凡 14:32:35
程序还是挺麻烦的呀
[Angel1995][Angel1995]Angel 14:33:15
[gtj116600]轶凡 14:33:49
我给个思路,你自己弄怎么样
[Angel1995][Angel1995]Angel 14:34:30
可以
[gtj116600]轶凡 14:35:19
先得到矩形的点表
[Angel1995][Angel1995]Angel 14:35:39
矩形?
是两直线呀
[gtj116600]轶凡 14:36:13
在得到”CP”直线实体的点表
[gtj116600]轶凡 14:36:51
在分别判断直线的两个顶点那个在矩形内
[Angel1995][Angel1995]Angel 14:37:38
[Angel1995][Angel1995]Angel 14:40:18
谢谢思路
[Angel1995][Angel1995]Angel 14:41:39
如果框选的不是那样的呢?
[gtj116600]轶凡 14:41:57
不是那样是那样呀
[Angel1995][Angel1995]Angel 14:42:08
[qqimg]oldimg/{AEBA2DD0-F930-9AD2-390F-884EA7417E8C}.jpg[/qqimg]
是直线的上半部分
要根据啥判断
[gtj116600]轶凡 14:42:40
呵呵,经过判断,没有直线端点在矩形内呗
[Angel1995][Angel1995]Angel 14:42:58
就是怎么样获取上面的两个端点
[gtj116600]轶凡 14:43:02
你学了多长时间了
[Angel1995][Angel1995]Angel 14:43:09
半年吧
[gtj116600]轶凡 14:43:23
呵呵,时间也不短了
[Angel1995][Angel1995]Angel 14:43:31
思路还不是....但是有思路就能写了
只是比较慢
[Angel1995][Angel1995]Angel 14:44:39
没有啦,每天都要出图纸的,时间上...
[gtj116600]轶凡 14:45:06
呵呵
[gtj116600]轶凡 14:45:45
我是入门级,你也是入门级
[Angel1995][Angel1995]Angel 14:52:21
我研究下
看看判断交点是否有用
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 10:02 , Processed in 0.210051 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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