求输入TT，画线，线宽图纸缩放时显示的宽度不变，类似BQCZ这样的外框的线

664571221

飞雪神光 发表于 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  (cons  lsta lst  ) )
       (while (setq pt (getpoint pt1 " 下一点："))
          (setq x (car pt))
          (setq y (cadr pt))
          (setq lst1 (list x y) )
          (setq lst  (cons  lst1 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")

弥勒

小和尚在摸鱼，编程爱好者。瞎玩

弥勒

阿弥陀佛，表也处理不明白，写一堆代码，一条准则能念经就行，哈哈哈

664571221

弥勒 发表于 2024-1-30 14:35
(defun c:tt()
       (setq lst '() )
       (setq pt1 (getpoint  " 起点："))

谢谢小和尚这回可以了，你和和尚777认识吗，哦这回怎么不是多段线了？？

弥勒

line   改成pline   就可以，你真的是博士吗，设计水管专业

664571221

弥勒 发表于 2024-1-30 15:10
line   改成pline   就可以，你真的是博士吗，设计水管专业

我不是呢，那个可能以前号被盗了，别人改了一次，找了明经的站长才拿回号

664571221

弥勒 发表于 2024-1-30 15:10
line   改成pline   就可以，你真的是博士吗，设计水管专业

那个颜色改为红色，然后不影响图纸的原来的环境怎么搞，比如这个红色后，我画pl不受这个颜色的干扰

664571221

弥勒 发表于 2024-1-30 15:10
line   改成pline   就可以，你真的是博士吗，设计水管专业

改为PL后，会上下重叠两个线 一个是线段，一个是多段线