wjl1014 发表于 2013-1-29 12:09:44

利用entmake快速画箭头--->>

本帖最后由 wjl1014 于 2013-1-29 12:11 编辑




(defun C:tt (/ pt1 pt2 pt3ang)
(setvar "CMDECHO" 0)
(setvar "TEXTEVAL" 1)
(setq pt1 (getpoint "\n指定起点->"))
(setq pt2 (getpoint pt1 "\n指定终点->"))
(setq ang (angle pt1 pt2))
(setq dis (distance pt1 pt2))
(setq pt3 (polar pt1ang (* 0.8 dis)))

(setq x1 (car pt1))
(setq y1 (cadr pt1))
(setq x2 (car pt2))
(setq y2 (cadr pt2))
(setq x3 (car pt3))
(setq y3 (cadr pt3))
(setq width1 (/ dis 50))
(setq width2 (/ dis 10))

(entmake
    (list
      '(0 . "lwpolyLINE")

    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(100
      .
      "AcDbPolyline"
   )
    '(90 . 3)
    '(70 . 0)
    '(38 . 0.0)
    '(39 . 0.0)
    (cons 10 (list x1 y1))
    (cons 40width1)
    (cons 41 width1)
    '(42 . 0.0)
      
    (cons 10 (list x3 y3))
    (cons 40 width2)
'(41 . 0.0)
    '(42 . 0.0)
    (cons 10 (list x2 y2))
    '(40 . 0.0)
    '(41 . 0.0)
    '(42 . 0.0)
    '(210 0.0 0.0 1.0)
)
)

(setvar "CMDECHO" 1)
)

阿猪蛋 发表于 2024-8-19 10:06:18

感谢大佬提供的源码，改成了我想要的插件~

逗亦斗霸 发表于 2024-8-15 12:44:54

感谢大佬提供的源码，改成了我想要的插件~

Nico 发表于 2021-8-15 11:32:08

双箭头怎么改?

ww5w 发表于 2013-1-29 12:11:08

支持源码..

wjl1014 发表于 2013-1-29 12:12:21

本帖最后由 wjl1014 于 2013-1-29 12:20 编辑



我贴了图，为什么看不到？

wjl1014 发表于 2013-1-29 12:22:12

是不是没权限，版主帮忙看看。

lrd1861 发表于 2013-1-29 17:19:57

贴错地方了吧

趣意人生 发表于 2021-9-26 22:24:02


支持源码..

434939575 发表于 2022-12-8 22:02:04

这个箭头可以，

xxyyzzlg 发表于 2024-8-15 14:14:59

这个箭头蛮好的呢
页: [1] 2
查看完整版本: 利用entmake快速画箭头--->>