明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 明经快报

[LISP群(1)] 2013-05-03 明经 AutoLISP 编程(102918348) 群聊记录:看来得加入“查找”做为前缀才行

 关闭 [复制链接]
 楼主| 发表于 2013-5-3 16:26:23 | 显示全部楼层
[Lwcdgl]coming 16:26:23
(setq a(getreal " num1:"))
  (alert(strcat"num1=" (itoa a)))
我错了吗
那里错了?
[x_s_s_1]生无可恋 16:28:01
(setq a(getreal " num1:"))
  (alert(strcat"num1=" (rtos a 2 2)))
[Lwcdgl]coming 16:29:06
怎么要用到RTOS了
[x_s_s_1]生无可恋 16:30:12
getint,itoa
[Lwcdgl]coming 16:30:28
哦,谢谢,明白了
[x_s_s_1]生无可恋 16:30:34
数据类型不同
[weiqi]weiqi 16:34:36
建立两个视窗 怎么调节让两个视窗不一样大?
 楼主| 发表于 2013-5-3 16:49:08 | 显示全部楼层
[kwok][kwok]巭隼 16:49:08
[qqimg]oldimg/{CED2FF26-C477-96AA-7CED-A6B7B3A98ED4}.jpg[/qqimg]同时选多个对象阵列后怎么选取最后的集?
如图,阵列了4个后想选取最后红色的集 再阵列
[x_s_s_1]生无可恋 16:55:04
难啊
有个办法,不阵列,用拷贝
[x_s_s_1]生无可恋 16:56:28
变通下
[328302216]小莫 16:56:31
用ssget“p”也不行吗?
[x_s_s_1]生无可恋 16:56:40
不行
选择的应该是原始对象
[x_s_s_1]生无可恋 16:57:42
阵列实际上不就是拷贝
 楼主| 发表于 2013-5-3 18:00:22 | 显示全部楼层
[kwok][kwok]巭隼 18:00:22
拷贝也是一种方式,
[雨的节奏][雨的节奏] 18:00:31
[qqimg]oldimg/{A73ACE75-DBD0-8257-71E2-C204F1F1D780}.jpg[/qqimg]
[328302216]小莫 18:02:15
阵列用vl函数好简单的说,才两句就搞定了
[kwok][kwok]巭隼 18:03:17
[x_s_s_1]生无可恋 18:07:09
写了个返回最后一个选择集的
需要不?
[x_s_s_1]生无可恋 18:07:45
放到论坛里
将帖子链接给我
[【KAIXIN】] [【KAIXIN】]炫翔 18:10:11
[【KAIXIN】] [【KAIXIN】]炫翔 18:14:56
[x_s_s_1]生无可恋 18:20:25
[qqimg]oldimg/{6C8AFCDB-FE18-B3C5-8026-84167D55199C}.gif[/qqimg]
没卵用,纯练习
[kwok][kwok]巭隼 18:26:23
[kwok][kwok]巭隼 18:27:40
没在论坛发贴呢
[x_s_s_1]生无可恋 18:27:53
vla-ArrayRectangular试试
[kwok][kwok]巭隼 18:28:13
[kwok][kwok]巭隼 18:30:02
其实是想选一个后,做不同距的阵列,选阵10 一样,再阵几个,用来画立面窗时,因层高不同,可以一次过
[x_s_s_1]生无可恋 18:30:33
不懂
[kwok][kwok]巭隼 18:30:43
[【KAIXIN】] [【KAIXIN】]炫翔 18:31:14
多层?
方向呢?
[kwok][kwok]巭隼 18:31:28
一般向上,
[x_s_s_1]生无可恋 18:31:34
前面那个函数可以满足您的要求,不过啰嗦,我试试vla-ArrayRectangular的返回值
[kwok][kwok]巭隼 18:32:09
5层一样,中间有设备层,层高又不一样,到了上面几层可能又不一样层高
[kwok][kwok]巭隼 18:39:20
我在想笨人方法,直接选中框选对象做成组,然后就阵列,可以就可以达到我要求了.呵呵
只是最后要解组
 楼主| 发表于 2013-5-3 18:50:10 | 显示全部楼层
[x_s_s_1]生无可恋 18:50:10
用vla-ArrayRectangular阵列
然后将其转为表
表中的last就是你要的
[x_s_s_1]生无可恋 18:51:17
(setq array(vla-ArrayRectangular(vlax-ename->vla-object (car (entsel))) 3 3 1 9000 9000 0))
(vla-put-color(last(vlax-safearray->list (vlax-variant-value array)))1)
这是例子
[雨的节奏][雨的节奏] 18:52:26
[qqimg]oldimg/{9297E5B8-240D-FB17-2A95-0C1E97C79DE8}.gif[/qqimg]
[x_s_s_1]生无可恋 18:52:35
这个和前面我给你的函数区别是不能有角度,
[x_s_s_1]生无可恋 18:53:48
按前面函数的基本思路用vla-ArrayRectangular改写就是的
[linshiyin2]大地 18:56:46
[qqimg]oldimg/{E3347CA5-BADC-A73D-F97D-68F27D52606F}.gif[/qqimg]
大侠们,谁能做到那个动态的圆弧切线,
[夏生生][x_s_s_1]生无可恋 18:58:27
鸿业有吧
[linshiyin2]大地 19:00:14
lisp搞
非arx
[夏生生][x_s_s_1]生无可恋 19:00:38
不懂
[夏生生][x_s_s_1]生无可恋 19:01:57
要给规则,要不然非本专业写不出
[夏生生][x_s_s_1]生无可恋 19:03:00
研究研究grread,配合您本专业的知识还是比较简单的
 楼主| 发表于 2013-5-3 19:15:56 | 显示全部楼层
[mmh1]漫步地球 19:15:56
cad 表格导出到txt,给个思路、
[236004]张牙舞爪 19:18:13
读TXT,再写TXT
[R-BB勇] 19:19:01
。。正想弄个程序算窗开启面积。
[236004]张牙舞爪 19:19:25
?
[wdsheng101]东升 19:26:20
大侠们有知道哪有卖Lisp代码的网站吗
[精诚]1093446400 19:27:04
500[qqimg]oldimg/{D6CE7D1E-4EE6-1FB5-D118-8D0AFC1432D1}.jpg[/qqimg]
[alwtyp] 19:27:35
你可以在明经上找大神们定制
[wdsheng101]东升 19:27:52
一般怎么收费的啊
[alwtyp] 19:28:41
不知道,你可以在定制版块中发个信息,如果有人想做,会和你谈的
[wdsheng101]东升 19:30:02
定制板块在哪啊
[alwtyp] 19:30:45
[qqimg]oldimg/{E7626867-69C1-D42C-C9DA-2FD994BBEC48}.jpg[/qqimg]
[wdsheng101]东升 19:31:24
3q
[alwtyp] 19:31:41
NTKS
 楼主| 发表于 2013-5-3 19:44:59 | 显示全部楼层
[kwok][kwok]巭隼 19:44:59
[qqimg]oldimg/{1E8A59C0-423E-3337-088B-BC5D73219D80}.jpg[/qqimg]这个数是什么意思?
[linshiyin2]大地 19:45:25
前面函数的参数
[kwok][kwok]巭隼 19:46:13
试了一下,冒似没反应
[kwok][kwok]巭隼 19:47:27
数太大,跑远了,没看到,以为没有
[linshiyin2]大地 19:48:18
zoom
加o
[kwok][kwok]巭隼 19:48:52
怎么弄成框选呢,
[linshiyin2]大地 19:49:02
ssget
[夏生生][x_s_s_1]生无可恋 19:54:10
要先将选择集转成vla对象表
然后挨个放血
[linshiyin2]大地 19:59:37
grvecs这个能绘制圆弧吗
那个函数能在屏幕上绘制圆弧
[kwok][kwok]巭隼 20:00:22
(defun c:tt2()
   (setq ss (ssget))
(setq array (vlax-ename->vla-object ss))
(setq array (vla-ArrayRectangular array 3 3 1 9000 9000 0))
(vla-put-color(last(vlax-safearray->list (vlax-variant-value array)))1)
      (princ)
)弄不出来呢,请再指点一下
[夏生生][x_s_s_1]生无可恋 20:01:06
你这个搞不明白就用我原来给你的函数
my_array
(vlax-ename->vla-object ss)
选择集不是图元名
[夏生生][x_s_s_1]生无可恋 20:04:50
搞清楚函数的参数
错了
[夏生生][x_s_s_1]生无可恋 20:06:17
绘制圆弧用grvecs拟合
[kwok][kwok]巭隼 20:06:34
谢谢
[夏生生][x_s_s_1]生无可恋 20:07:08
但是[linshiyin2]你那个东西用不到grvecs,直接先entmake再删除就是的,利用grread
[夏生生][x_s_s_1]生无可恋 20:10:10
(setq gr (car(grread)))
(cond ((= gr 2)......))
 楼主| 发表于 2013-5-3 20:30:46 | 显示全部楼层
[夏生生][x_s_s_1]生无可恋 20:30:46
下面是利用vla-ArrayRectangular方法求最后一个选择集的函数
[kwok][kwok]巭隼 20:32:23
代码好长,呵呵,以为可以好简单呢
[夏生生][x_s_s_1]生无可恋 20:32:43
思路是很简单
代码长不代表复杂
后面test1是给你的测试代码
[mmh1]漫步地球 20:34:08
ssadd里面的图元如何取出来?
(setq ssb2 (vl-sort ssb
         (function (lambda(e1 e2)
               (< (car (cdr(assoc 10 (entget e1)))) (car (cdr(assoc 10 (entget e2))))))))
      )
出错
[kwok][kwok]巭隼 20:34:45
我学习一下,最后的集名是那个?可以得重复阵列后的每个集吗?意思每阵列一次就要取最后一集然后用它再阵列...
[夏生生][x_s_s_1]生无可恋 20:37:16
因为vla-ArrayRectangular是对一个vba对象操作,所以要转化ss为lst再mapcar保证返回您需要的lst
[kwok][kwok]巭隼 20:37:33
测试不行,
错误: ActiveX 服务器返回错误: 非选择性的参数。
[夏生生][x_s_s_1]生无可恋 20:37:50
我这里没问题
是不是没拷贝完全
[qqimg]oldimg/{B4F702B8-562C-5FB3-0A22-136C38DC9D56}.jpg[/qqimg]
[夏生生][x_s_s_1]生无可恋 20:39:48
您先把俩个自定义函数搞懂吧,自己逐行注释,这样学的快,否则光拿别人的用没提高的
[夏生生][x_s_s_1]生无可恋 20:40:18
看帮助,逐个函数搞明白它的含义
[kwok][kwok]巭隼 20:41:02
vla-ArrayRectangular刚刚在看这个帮助,都是英文看不懂,费劲
只能猜,
[夏生生][x_s_s_1]生无可恋 20:41:28
看vba的帮助
明经有的
[夏生生][x_s_s_1]生无可恋 20:42:32
[qqimg]oldimg/{32848746-AE7A-0403-1387-A3F251E18760}.jpg[/qqimg]
[qqimg]oldimg/{C8485799-610A-E93A-C3D7-A3221357C10B}.jpg[/qqimg]
 楼主| 发表于 2013-5-3 22:32:20 | 显示全部楼层
日月星 22:32:20
怎么获取文字的实际宽度和高度啊?求老师指点
 楼主| 发表于 2013-5-3 23:52:17 | 显示全部楼层
[linshiyin2]大地 23:52:17
dxf
日月星 23:52:37
???
dxf组码?
[linshiyin2]大地 23:52:59
组码
日月星 23:56:14
谢谢
[仑通]仑通 23:56:36
get dxf
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 15:27 , Processed in 0.182441 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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