本帖最后由 664571221 于 2024-1-30 12:30 编辑
飞雪神光 发表于 2024-1-30 12:04
有画线的过程
你这个缩放的时候不会保持显示宽度，需要左边那种效果
664571221 发表于 2024-1-30 12:23
你这个缩放的时候不会保持显示宽度，需要左边那种效果
前边的两个 一个设置了宽度 一个没设置把370和90删掉 就是图层默认宽度了
(defun c:tt()
(setq lst '() )
(setq pt1 (getpoint" 起点："))
(setq x1 (car pt1))
(setq y1 (cadr pt1))
(setq lsta (list x1 y1) )
(setq lst(conslsta lst) )
(while (setq pt (getpoint pt1 " 下一点："))
(setq x (car pt))
(setq y (cadr pt))
(setq lst1 (list x y) )
(setq lst(conslst1 lst) )
(command "line" pt1 pt "")
(setq pt1 pt)
)
(entmake (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(8 . "你好123")
'(370 . 90)
'(100 . "AcDbPolyline")
(cons 90 (length lst))
)
(mapcar '(lambda (pt)(cons 10 pt)) lst )
)
)
(princ)
)
(princ "\n程序加载完成")
(princ "\n")
小和尚在摸鱼，编程爱好者。瞎玩
阿弥陀佛，表也处理不明白，写一堆代码，一条准则能念经就行，哈哈哈
弥勒 发表于 2024-1-30 14:35
(defun c:tt()
(setq lst '() )
(setq pt1 (getpoint" 起点："))
谢谢小和尚这回可以了，你和和尚777认识吗，哦这回怎么不是多段线了？？
line 改成pline 就可以，你真的是博士吗，设计水管专业
弥勒 发表于 2024-1-30 15:10
line 改成pline 就可以，你真的是博士吗，设计水管专业
我不是呢，那个可能以前号被盗了，别人改了一次，找了明经的站长才拿回号
弥勒 发表于 2024-1-30 15:10
line 改成pline 就可以，你真的是博士吗，设计水管专业
那个颜色改为红色，然后不影响图纸的原来的环境怎么搞，比如这个红色后，我画pl不受这个颜色的干扰
弥勒 发表于 2024-1-30 15:10
line 改成pline 就可以，你真的是博士吗，设计水管专业
改为PL后，会上下重叠两个线 一个是线段，一个是多段线