[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
直接转格式 |