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

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

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

(defun C:tt (/ pt1 pt2 pt3  ang)
  (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 pt1  ang (* 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 40  width1)
(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

这个箭头蛮好的呢

账号		自动登录	找回密码
密码			注册

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

相关帖子