明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2654|回复: 14

[LISP群(1)] 2013-05-07 明经 AutoLISP 编程(102918348) 群聊记录:很多不同方向的直线,怎么指定每根线起点?可以以圆为中心,让近圆心的线端点做起

 关闭 [复制链接]
发表于 2013-5-7 01:26:43 | 显示全部楼层 |阅读模式
[kwok][kwok]巭隼 01:26:43
很多不同方向的直线,怎么指定每根线起点?可以以圆为中心,让近圆心的线端点做起点吗?
 楼主| 发表于 2013-5-7 08:14:51 | 显示全部楼层
[【KAIXIN】] [【KAIXIN】]炫翔 08:14:51
[夏生生][x_s_s_1]生无可恋 08:15:15
[qqimg]oldimg/{791D3CEE-77EC-48B9-A02A-BF8AA5970040}.gif[/qqimg]
[pzweng]路人 08:16:52
[kwok][kwok]巭隼 08:18:04
很多不同方向的直线,怎么指定每根线起点?可以以圆为中心,让近圆心的线端点做起点吗?
[仑通]仑通 08:18:20
千呼万唤射出来  尤抱女友半遮面
[夏生生][x_s_s_1]生无可恋 08:19:02
改变10和11组码吗?
问题不是很明白,最好切图
[pzweng]路人 08:19:31
同感
让近圆心的线端点做起点吗?
[kwok][kwok]巭隼 08:20:39
[夏生生][x_s_s_1]生无可恋 08:20:44
distance判断
[夏生生][x_s_s_1]生无可恋 08:21:17
哪个距离小小将哪个坐标定为10
[kwok][kwok]巭隼 08:23:55
我想批量选线,然后指定每根线起点,插块,这个起点要有方向的,就自己指定
[夏生生][x_s_s_1]生无可恋 08:24:25
切图啊
您的表达能力有点那个
[kwok][kwok]巭隼 08:24:48
[夏生生][x_s_s_1]生无可恋 08:25:17
既然都要指定每根线的起点了,还要啥判断呢
[kwok][kwok]巭隼 08:25:18
手机没法切图
[夏生生][x_s_s_1]生无可恋 08:26:22
我的理解选择线和圆,线靠近圆一端插块
是不是?
也不一定是圆,指定一点也可,是不是?
[kwok][kwok]巭隼 08:26:57
[夏生生][x_s_s_1]生无可恋 08:29:06
(setq ent(entget en))(if(>(distance (cdr(assoc 10 ent))cen)(distance (cdr(assoc 11 ent))cen))(insert 11)(insert 10))思路,不是代码
[kwok][kwok]巭隼 08:29:25
 楼主| 发表于 2013-5-7 08:59:45 | 显示全部楼层
[仑通]仑通 08:59:45
谁有批量把点形成独立块的程序
[仑通]仑通 09:00:15
每个点 都形成块
 楼主| 发表于 2013-5-7 09:28:25 | 显示全部楼层
[kwok][kwok]巭隼 09:28:25
[qqimg]oldimg/{D00239CB-C147-C83B-2F60-12F4B88A1B20}.jpg[/qqimg]求方面的码
[野狼谷]笨鸟 09:29:23
你这个太偏了
[zhuquanmao]关中 09:29:32
[kwok][kwok]巭隼 09:29:48
[夏生生][x_s_s_1]生无可恋 09:30:31
按象限判断
糊-涂 09:30:34
这个东西最好用多段线实现
[野狼谷]笨鸟 09:30:55
可以给你个思路参考,先用ssget把线实体找到,然后获取每一个的首末点,写入表,然后一个获取,查块时,在通过调用这个表数据,比如查入点为中点,则计算首末点的中点作为插入点
[zhuquanmao]关中 09:32:11
块插在哪里?
如果插线中点就简单了
[kwok][kwok]巭隼 09:32:40
[qqimg]oldimg/{0CC235E4-F6AB-DED2-8315-4CF2B9F76BED}.jpg[/qqimg]
[夏生生][x_s_s_1]生无可恋 09:33:07
p1均位于P2的逆时针方向
[kwok][kwok]巭隼 09:33:11
其实我是想在每根线上画一条这个紫线
[夏生生][x_s_s_1]生无可恋 09:33:41
我说错了
糊-涂 09:33:56
(print "程序启动命令DXBH")
(defun c:dxbh()
 
  (setq ff (getfiled "坐标写入" "C:B.txt" "txt" 1))
  (setq ff (open ff "w"))
  (write-line (strcat "编号""        x""        y") ff)
  (write-line  "============================================" ff)

(hqdd)

 (setq qsz (getint " 请输入起始编号"))
  (setq zg (getint " 请输入编号字高"))
;;;  (cond ((= zg "") (setq qsz 1))
;;;    ((= qsz "") (setq zg 200))
;;;
;;;
;;;   )
   (if (= zg nil) (setq zg 200))
  (if  (= qsz nil) (setq qsz 1))
  (setq x nil y nil )
(foreach b nnlist (progn
           
 (command "-text"
      "j"
      "m"
      b
      zg
      ""
      qsz)
  
 (setq x (rtos (car b)))
  (setq y (rtos (car b)))
 (setq zh (rtos qsz))
;;; (setq zh qsz)
(write-line (strcat zh"," x "," y) ff)
     (setq qsz (+ 1 qsz))
 

)

)
  (close ff)

)

(defun hqdd()
  (setq en nil enname nil endata nil a nil nlist nil nnlist nil)
  (print "请选择多段线")
  (setq en (entsel))
  (setq enname (car en))
  (setq endata (entget enname))
  (foreach a endata
   
        (if (= 10 (car a))(setq nlist (cons(cdr a) nlist))
     )
        
      )
    (foreach a nlist (setq nnlist (cons a nnlist)))


  )
[zhuquanmao]关中 09:33:58
知错就改好学生
糊-涂 09:34:16
这段代码的多线段坐标提取可以参考的
[夏生生][x_s_s_1]生无可恋 09:36:06
按我前面给你的思路
在中间随便选一点
if(>(distance (cdr(assoc 10 ent))cen)(distance (cdr(assoc 11 ent))cen))(insert 11)(insert 10))
就是这么个思路,很简单的
[kwok][kwok]巭隼 09:37:33
有可能会出现p2离中点近了
会不会出出这情况
?
[夏生生][x_s_s_1]生无可恋 09:38:07
本来就是P2近
[王者之弩] 09:38:08
判断两个圆是不是同心圆,两个圆圆心xy坐标一样为什么有时候能判断正确有时候就不对?
[kwok][kwok]巭隼 09:38:33
说错了,是p1
[夏生生][x_s_s_1]生无可恋 09:39:06
eq
equal
要容差
[kwok][kwok]巭隼 09:39:50
我看看我能拼出来不
[王者之弩] 09:40:04
就是不能直接用=号?
[夏生生][x_s_s_1]生无可恋 09:40:15
不能
一般这种提取数值比较最好用equal
[王者之弩] 09:40:37
我在试试去先
[zhuquanmao]关中 09:41:38
在中间随便选一点
[duotu007]查理 09:50:12
对象名 # 如何转成字符串,谁能告诉我,谢谢
[夏生生][x_s_s_1]生无可恋 09:52:43
(vla-get-textstring obj)
如果是文字的话
[duotu007]查理 09:53:22
不是文字对象
[夏生生][x_s_s_1]生无可恋 09:53:31
还是要将其写为字符串
[duotu007]查理 09:53:58
我想把对象的名字转成字符串
[雨的节奏][雨的节奏] 09:54:08
[duotu007]查理 09:54:14
如  对象名 #  转成 “ # ”
[雨的节奏][雨的节奏] 09:54:23
vl-prin1-to-string
[duotu007]查理 09:55:49
如 (setq curObj (vla-get-ActiveDocument (vlax-get-acad-object))) 返回当前文档对象名
[雨的节奏][雨的节奏] 09:55:56
[qqimg]oldimg/{C5D15976-E057-DE98-A590-38929D7E430B}.jpg[/qqimg]
[duotu007]查理 09:55:59
命令: (setq curObj (vla-get-ActiveDocument (vlax-get-acad-object))) #
[王者之弩] 09:56:19
看来提取数值的比较用equal比直接用=好,又学习了,谢谢
[夏生生][x_s_s_1]生无可恋 09:57:22
[qqimg]oldimg/{4BFB3345-DF0F-302C-9E96-59ED9826BC10}.jpg[/qqimg]
[阿然][阿然] 09:57:32
(vl-prin1-to-string curobj)
[duotu007]查理 09:57:35
谢谢雨前节奏
[gzxl] 10:04:26
问个问题
输入menuload时CAD就强制退出了,是不是跟那么系统变量有关?
[kwok][kwok]巭隼 10:05:44
[qqimg]oldimg/{CCD91D2E-A020-CB21-DB54-E6FF61B16D85}.jpg[/qqimg]有点样了
[pzweng]路人 10:15:21
如何用lisp获取ObjId
[阿然][阿然] 10:19:29
;;;获取曲线中点
(vlax-curve-getdistatpoint curve-obj (/ (vlax-curve-getDistAtPoint curve-obj (vlax-curve-getendpoint curve-obj)) 2.0))
[pzweng]路人 10:19:58
如何用lisp获取ObjId
[阿然][阿然] 10:20:27
vla-get-objectid
[pzweng]路人 10:20:36
lisp
不用v开头的
[阿然][阿然] 10:20:48
不会
[夏生生][x_s_s_1]生无可恋 10:21:03
objectid本身就是vla的东西
[pzweng]路人 10:21:23
lisp获取不了?
[夏生生][x_s_s_1]生无可恋 10:21:53
只能获取句柄
[pzweng]路人 10:22:14
那lisp真是杯具了
[夏生生][x_s_s_1]生无可恋 10:22:26
为啥啊
你获取了用alisp也处理不了啊
[pzweng]路人 10:25:19
%%
[阿然][阿然] 10:25:29
In general, use a handle unless you plan to work with certain ObjectARX functions that require an object ID.
[pzweng]路人 10:25:33
我想搞字段表达式
[阿然][阿然] 10:26:11
为什么要纠结不能用vlisp?
[pzweng]路人 10:26:24
thanks
[pzweng]路人 10:26:54
字段与lisp沟通好些
[xiabin68]测绘 10:27:20
直接转格式
 楼主| 发表于 2013-5-7 12:05:18 | 显示全部楼层
[vormittag]桔子 12:05:18
[qqimg]oldimg/{AB99C0EC-7F52-9D31-B093-570F95817AEF}.jpg[/qqimg]
[mccad][MCCAD] 12:05:19
晕,这个功能怎么在几个群里都失效了,得查一下
[mccad][MCCAD] 12:06:35
看来是程序出了点问题
[xiaomm09]江湖 12:09:34
连明总的话都不听了。
[328302216]小莫 12:10:21
程序里面的变量太多(变量类型也有多种),我想把程序里所有属于real类型的变量都除以一个数,除了一个一个弄有没有其他办法
[mccad][MCCAD] 12:14:05
看来 腾讯做了过滤
 楼主| 发表于 2013-5-7 13:24:30 | 显示全部楼层
[alexanderlili][alexanderlili]友缘 13:24:30
这个函数挺有用啊
[fsxm]飞诗 13:28:35
[qqimg]oldimg/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]小明怎么了
[vormittag]桔子 13:29:11
被抽了
[fsxm]飞诗 13:29:27
[qqimg]oldimg/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]
[Sign88]宁波标志 13:30:07
[qqimg]oldimg/{0B04E4B4-44F6-9DFE-54E5-D7895B5EE5BA}.jpg[/qqimg]
[Sign88]宁波标志 13:30:39
小明应该是机器人吗?
[fsxm]飞诗 13:32:15
小明抽风了,不能搜索了呢
私聊也搜索不了
[mccad][MCCAD] 13:33:12
经常发链接,估计经常会被腾讯禁言
但私聊应该可以
[pzweng]路人 13:40:48
[pzweng]路人 13:42:07
以前的天气这类的信息都没有了
[429014673]djl 13:42:38
[qqimg]oldimg/{B0A577C5-D7EF-F106-EA82-A14A576E9176}.jpg[/qqimg]
[mccad][MCCAD] 13:43:39
群中智能聊天功能被我关掉,不然影响大家学习
[328302216]小莫 13:43:40
[qqimg]oldimg/{F38F5C72-13A4-8654-76FE-CB790D880BE7}.jpg[/qqimg]好骚
[mccad][MCCAD] 13:44:17
私聊中,已经改成较黄的机器人跟你聊天
[pzweng]路人 13:44:36
怎么私聊?
[328302216]小莫 13:44:47
[mccad][MCCAD] 13:46:01
双点它就可以
[qqimg]oldimg/{21E0A161-7C31-534E-376A-9DCBF7D20E95}.jpg[/qqimg]
[pzweng]路人 13:47:03
晕,听得懂湖南话
[qqimg]oldimg/{5B7DDBE2-E427-E878-15FA-11EE11EE521A}.jpg[/qqimg]
[pzweng]路人 13:48:29
[qqimg]oldimg/{9F0E8F6D-3ABA-A0D8-0C9D-6F6FD0FB7F0A}.jpg[/qqimg]
 楼主| 发表于 2013-5-7 13:59:50 | 显示全部楼层
[changxingge] 13:59:50
这机器人  有点yellow
:-(
[429014673]djl 14:00:23
[qqimg]oldimg/{10F0D5E1-84D9-39A3-E93C-C0712354DFA8}.jpg[/qqimg]
 楼主| 发表于 2013-5-7 14:25:00 | 显示全部楼层
[雨的节奏][雨的节奏] 14:25:00
小明怎么不报天气了啊
机票车票也不报了
[雨的节奏][雨的节奏] 14:26:30
你怎么不告诉我天气呢
[明经快报]  14:25:56
情人啊 情人 你懂吗
弹指?之间  14:25:59
你变了
[明经快报]  14:26:10
言而无信
弹指?之间  14:26:10
不再是从前的你了
[明经快报]  14:26:20
因为我长大了,变成大傻逼了
 楼主| 发表于 2013-5-7 14:37:12 | 显示全部楼层
[sqbao] 14:37:12
[qqimg]oldimg/{CAD7B802-70F8-353E-ACE3-E6D86A0527BE}.gif[/qqimg]
[qqimg]oldimg/{1D70B689-4495-857C-510B-277BD52886BB}.jpg[/qqimg]
亮了
 楼主| 发表于 2013-5-7 14:50:21 | 显示全部楼层
[fsxm]飞诗 14:50:21
[qqimg]oldimg/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]
[MCCAD] 14:53:26
大家要黄点的机器人还是正经点的机器人?
[阿然][阿然] 14:53:48
要正经黄的
[fsxm]飞诗 14:53:49
[328302216]小莫 14:54:04
[BirdSKY]飞鸟 14:54:07
要他黄他就黄
[vormittag]桔子 14:54:15
我也刚想这么说。
[fsxm]飞诗 14:54:25
口味很重啊
[qqimg]oldimg/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]
[BirdSKY]飞鸟 14:54:32
[vormittag]桔子 14:55:08
裆黄小机器人
[fsxm]飞诗 14:55:51
[qqimg]oldimg/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]
[15494019]Terminal 14:57:45
我想问一下 这个格式哪里错了?
[qqimg]oldimg/{6E15DAE4-0200-2693-5D6F-918DDB54B17E}.jpg[/qqimg]
[阿然][阿然] 14:58:47
if
if (< x 200) and (< y 200)这里错了
[15494019]Terminal 14:59:08
lisp刚学 不好意思。。
我不知道同时判定的格式是什么
C里面有的&& LISP不支持。
不知道怎么表达。
[15494019]Terminal 15:00:36
当X
求教育。
[阿然][阿然] 15:00:56
(and (< x 200) (< y 200))
[15494019]Terminal 15:01:27
if(and(< x 200)(< y 200))?
[15494019]Terminal 15:03:02
3Q 我都把机器人忘记了。
[ttthhh_hb] 15:03:44
糊-涂 15:04:13
你应该这么问了
[ttthhh_hb] 15:05:12
那是C的经典示例
[q530496591][q530496591]小菜鸟 15:10:10
不理我
小明怎么用不了啦?
[qqimg]oldimg/{52F21520-FD04-BFAA-4436-E503ABB17221}.jpg[/qqimg]
[328302216]小莫 15:19:20
你们编程的时候一般是怎么保存的?我弄了一个自动把图套入图框的程序,但是后面想加一个判断哪里需要放大样并自动放出大样的程序结合起来,但是弄着弄着连原来的都出问题了!想问问你们的习惯,我总感觉我的东西保存得好乱,同一个比较长的程序不知道怎么保存好!
[雨的节奏][雨的节奏] 15:19:57
我好想说我一直都是在记事本里面写程序的
只会用vlisp编绎一下
StEf 15:20:21
一直用VLIDE 啊,用txt是高手
[328302216]小莫 15:20:50
我用的是CAD自带的
StEf 15:21:17
我觉得高度模块化,通用功能都写成函数,这样比较好。。
偏爱云~小吴 15:21:43
赞成
要不共享下
[328302216]小莫 15:22:18
有时候一个程序要弄好几天,中途有时候会没弄,久点了就不记得问题出在哪了~~
StEf 15:23:05
做好注释啊,时间长,又得重过一遍。。。。
偏爱云~小吴 15:25:54
你是专业搞程序的?
StEf 15:25:56
大家有没有这种感觉,有时该自己好久以前写的代码,半天看懂,然后会感叹自己曾今写的算法这么NB。。。。
纯YY,哈哈
[328302216]小莫 15:26:18
我之前弄的这个把别人的《局部放大》当子程序来套到我原来的程序里的,但是因为有些变量什么的要在这个子程序里面添加,所以原来的程序里面的就删了,后面还没弄完休息了一天现在就出问题了……不记得弄到哪了
StEf 15:26:24
菜鸟,入门级的
偏爱云~小吴 15:27:00
哎,大神都这么说
偏爱云~小吴 15:27:41
我怎么入门这么难
[328302216]小莫 15:27:52
我的程序大部分都是有注释的,但是这次有些被我删了 ……
偏爱云~小吴 15:27:54
你们都怎么学的
[ttthhh_hb] 15:28:18
一步步来
从简单的功能做起
[15494019]Terminal 15:28:53
大神们,求包养啊。
[328302216]小莫 15:28:57
你们编一个程序一般是保存几份?
[15494019]Terminal 15:29:01
[ttthhh_hb] 15:29:01
对着帮助或者示例多写
偏爱云~小吴 15:29:08
恩我也在反思是不是太急了
[328302216]小莫 15:29:14
我指的是在编过程中
[15494019]Terminal 15:29:21
求包养。。链接已给了,求给力啊。
偏爱云~小吴 15:30:57
天天抱着别人的程序看越看越觉得看不懂
[328302216]小莫 15:32:33
实战吧
偏爱云~小吴 15:33:46
[simon8001][simon8001]随风 15:36:58
我一般是修改的时候都这本子上做个记录
[simon8001][simon8001]随风 15:37:31
不然总怕自己有事情 回来后就接不上自己的思路了
偏爱云~小吴 15:39:07
好习惯,学习了
[simon8001][simon8001]随风 15:39:21
实战确实是能快速提高
我抱着别人的程序 然后修改满足自己的要求 应该算是实战了  但缺乏的是大局观
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-22 23:49 , Processed in 0.231652 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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