帮助需要绘制此符号

andy_lee · 发表于 2022-7-5 22:32:06

嗨，伙计们
我的英语很差，所以上传图片进行解释。

在曲线上绘制圆弧。（直线、直线、圆、圆弧、椭圆）

可以指定起点和终点

还有一些选择。

两种类型
类型1
类型2

方向，使用对话框选择

如果选择type1，那么可以使用“鼠标手势”来选择曲线的哪一侧。

宽度和间距，例如宽度=2，间距=1

弧度（%）
也可以固定。这样地：

pBe · 发表于 2022-7-5 22:39:32

安迪，

从表面上看，这个程序已经被其他人完成了，你的帖子上的pix是从哪里来的？

andy_lee · 发表于 2022-7-5 22:46:33

尊敬的pBe。
没有见过类似的应用。我使用ODCL和PS绘制该对话框。

pBe · 发表于 2022-7-5 22:50:09

你让我在那里，安迪，聪明。

也许过会儿我会去看看

andy_lee · 发表于 2022-7-5 22:53:19

哈哈。别开玩笑了。
如果有人能帮忙。我会很高兴的。

hanhphuc · 发表于 2022-7-5 22:59:05

如果我们用圆弧手工制作一个块
然后
命令：测量
或
命令：分割
对的
你能澄清弧度百分比吗？

andy_lee · 发表于 2022-7-5 23:05:49

谢谢你的回复，我的朋友韩。

弧度这并不重要。可以这样替换：

为什么需要制作积木？我认为可以使用
entmake创建。

hanhphuc · 发表于 2022-7-5 23:09:16

您误解了，如果使用命令手动（不编码）测量（带块），
是的，entmake是在多段线对齐中操作的编码的一部分

pBe · 发表于 2022-7-5 23:14:56

这可能会奏效，也许可以使用动态块

andy_lee · 发表于 2022-7-5 23:20:12

嗨，我的朋友韩。
可能参考此例程
http://bbs.mjtd.com/thread-101300-1-1.html

copy

[color=#000000](defun C:SM (/ A AN AN0 BASEPT BETWEEN BOOL CURVEBLOCK CURVELENGTH DISTANC EN FIRSTPOINT LASTB LASTBLIST LASTBLOCK N PP PT PT0 SSADD1 STRIN TRIN VT)[/color]
[color=#000000]  (defun *error* (msg)[/color]
[color=#000000]    (vl-bt)[/color]
[color=#000000]    (if[/color][color=#000000]        [/color][color=#000000]*DOC*[/color]
[color=#000000]      (_EndUndo *DOC*)[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]        [/color]
[color=#000000]    )[/color]
[color=#000000]    (while (not (equal (getvar "cmdnames") "")) (command nil))[/color]
[color=#000000]    (princ "\n Error!")[/color]
[color=#000000]    (princ)[/color]
[color=#000000]  )[/color]
[color=#000000]  (defun stratpointT (en pt0 / CURVELENGTH L1)[/color]
[color=#000000]    (setq CurveLength[/color]
[color=#000000]        [/color][color=#000000]   (vlax-curve-getDistAtParam[/color]
[color=#000000]        [/color][color=#000000]     en[/color]
[color=#000000]        [/color][color=#000000]     (vlax-curve-getEndParam en)[/color]
[color=#000000]        [/color][color=#000000]   )[/color]
[color=#000000]    )[/color]
[color=#000000]    (setq L1 (vlax-curve-getDistAtPoint en pt0))[/color]
[color=#000000]    (< L1 (- CurveLength L1))[/color]
[color=#000000]  )[/color]
[color=#000000]  (defun NAME_BLK (CurveLength / A Y)[/color]
[color=#000000]    (setq A (rtos (* (getvar "CDATE") 1E8)))[/color]
[color=#000000]    (setq Y (/ CurveLength 5.0))[/color]
[color=#000000]    (entmake (list '(0 . "LINE")[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000]   (cons 10 (list 0 0 0))[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000]   (cons 11 (list 0 y 0))[/color]
[color=#000000]        [/color][color=#000000]     )[/color]
[color=#000000]    )[/color]
[color=#000000]    (command "_.BLOCK"[/color]
[color=#000000]        [/color][color=#000000]     A[/color]
[color=#000000]        [/color][color=#000000]     "non"[/color]
[color=#000000]        [/color][color=#000000]     (list 0 (/ y 2.0) 0)[/color]
[color=#000000]        [/color][color=#000000]     (entlast)[/color]
[color=#000000]        [/color][color=#000000]     ""[/color]
[color=#000000]    )[/color]
[color=#000000]    A[/color]
[color=#000000]  )[/color]
[color=#000000]  (defun MyAttAdd (en n / ELIST N1 N3 NEND QIANZ STREND TEXT)[/color]
[color=#000000]    (setq elist (entget (entnext en)))[/color]
[color=#000000]    (setq text (cdr (assoc 1 elist)))[/color]
[color=#000000]    (setq n3 (strlen text))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq strEND (getNumberS text))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000] [/color]
[color=#000000]    (setq Nend (nth (1- (length strEND)) strEND))[/color]
[color=#000000]    (setq n1 (strlen Nend))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq qianZ (substr text 1 (- n3 n1)))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq strEND (+ (atof (car strEND)) n))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq strEND (strcat qianZ (rtos strEND 2 3)))[/color]
[color=#000000]    (entmod (subst (cons 1 strEND) (assoc 1 elist) elist))[/color]
[color=#000000]    (entupd en)[/color]
[color=#000000]   [/color]
[color=#000000]  )[/color]
[color=#000000]  (defun MyTextAdd (en n / ELIST N1 N3 NEND QIANZ STREND TEXT)[/color]
[color=#000000]    (setq elist (entget en))[/color]
[color=#000000]    (setq text (cdr (assoc 1 elist)))[/color]
[color=#000000]    (setq n3 (strlen text))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000] [/color]
[color=#000000]    (setq strEND (getNumberS text))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq Nend (nth (1- (length strEND)) strEND))[/color]
[color=#000000]    (setq n1 (strlen Nend))[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq qianZ (substr text 1 (- n3 n1)))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq strEND (+ (atof (car strEND)) n))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]    (setq strEND (strcat qianZ (rtos strEND 2 3)))[/color]
[color=#000000]    (entmod (subst (cons 1 strEND) (assoc 1 elist) elist))[/color]
[color=#000000]  )[/color]
[color=#000000] [/color]
[color=#000000]  (vl-load-com)[/color]
[color=#000000]  (or *DOC*[/color]
[color=#000000]      (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))[/color]
[color=#000000]  )[/color]
[color=#000000]  (_StartUndo *DOC*)[/color]
[color=#000000]  (setvar "nomutt" 1)[/color]
[color=#000000]  (princ "\n >Select the curve")[/color]
[color=#000000]  (while (not[/color]
[color=#000000]        [/color][color=#000000]   (and[/color][color=#000000]        [/color][color=#000000](setq en (ssget ":E:S" '((0 . "*LINE,ARC,ELLIPSE"))))[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000](setq en (ssname en 0))[/color]
[color=#000000]        [/color][color=#000000]   )[/color]
[color=#000000]        [/color][color=#000000] )[/color]
[color=#000000]    (princ "\n >Re select the curve")[/color]
[color=#000000]  )[/color]
[color=#000000]  (setvar "nomutt" 0)[/color]
[color=#000000]  (setq pt0 (vlax-curve-getClosestPointTo en (cadr (grread T )))[/color]
[color=#000000]  [/color]
[color=#000000]  (setq[/color][color=#000000]        [/color][color=#000000]CurveLength[/color]
[color=#000000]        [/color][color=#000000] (vlax-curve-getDistAtParam[/color]
[color=#000000]        [/color][color=#000000]   en[/color]
[color=#000000]        [/color][color=#000000]   (vlax-curve-getEndParam en)[/color]
[color=#000000]        [/color][color=#000000] )[/color]
[color=#000000]  )[/color]
[color=#000000]  (setq[/color][color=#000000]        [/color][color=#000000]curveBlock[/color]
[color=#000000]        [/color][color=#000000] (car (ENTSEL "\n ..>>Select the arrangement of objects along:"))[/color]
[color=#000000]  )[/color]
[color=#000000]  (if curveBlock[/color]
[color=#000000]    nil[/color]
[color=#000000]    (progn (setq A (NAME_BLK CurveLength))[/color]
[color=#000000]        [/color][color=#000000]   (command "_.INSERT" A "@" "" "" "")[/color]
[color=#000000]        [/color][color=#000000]   (setq lastblock (entlast))[/color]
[color=#000000]        [/color][color=#000000]   (setq curveBlock lastblock)[/color]
[color=#000000]    )[/color]
[color=#000000]  )[/color]
[color=#000000]  (setq an0 (entget curveBlock))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]  (setq basePt (cdr (assoc 10 an0)))[/color]
[color=#000000]  (setq an0 (cdr (assoc 50 an0)))[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]  [/color]
[color=#000000]  (setq bool T)[/color]
[color=#000000]  (setq[/color][color=#000000]        [/color][color=#000000]strin (strcat "\n ...>>>The length of the curve"[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000]      (rtos CurveLength 2 3)[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000]      ",Enter the spacing: "[/color]
[color=#000000]        [/color][color=#000000]      )[/color]
[color=#000000]  )[/color]
[color=#000000]  (while bool[/color]
[color=#000000]    (initget 7)[/color]
[color=#000000]    (setq between (getreal strin))[/color]
[color=#000000]    (if[/color][color=#000000]        [/color][color=#000000](> between CurveLength)[/color]
[color=#000000]      (progn (setq bool T) (alert "Object spacing must be smaller than the curve length!!!"))[/color]
[color=#000000]      (setq bool nil)[/color]
[color=#000000]    )[/color]
[color=#000000]  )[/color]
[color=#000000]  (initget 4)[/color]
[color=#000000]  (setq strin (rtos (/ (rem CurveLength between) 2.0) 2 3))[/color]
[color=#000000]  (setq[/color]
[color=#000000]    distanc (getreal[/color]
[color=#000000]        [/color][color=#000000]      (strcat "\n ....>>>>The spacing of first object & Curve endpoint<" strin ">:")[/color]
[color=#000000]        [/color][color=#000000]    )[/color]
[color=#000000]  )[/color]
[color=#000000]  (if distanc[/color]
[color=#000000]    nil[/color]
[color=#000000]    (setq distanc (/ (rem CurveLength between) 2.0))[/color]
[color=#000000]  )[/color]
[color=#000000] [/color]
[color=#000000]  (setq n (fix (/ (- CurveLength distanc) between)))[/color]
[color=#000000]  (if (stratpointT en pt0)[/color]
[color=#000000]    (setq firstPoint distanc)[/color]
[color=#000000]    (setq firstPoint (rem (- CurveLength distanc) between))[/color]
[color=#000000]  )[/color]
[color=#000000]  (setq ssadd1 (ssadd))[/color]
[color=#000000]  (repeat (setq n (1+ n))[/color]
[color=#000000]    (setq pt (vlax-curve-getPointAtDist en firstPoint)[/color]
[color=#000000]        [/color][color=#000000]  pp (vlax-curve-getParamAtPoint en Pt)[/color][color=#000000]        [/color][color=#000000]  [/color]
[color=#000000]        [/color][color=#000000]  vt (vlax-curve-getFirstDeriv en pp)[/color][color=#000000]        [/color][color=#000000] [/color]
[color=#000000]        [/color][color=#000000]  an (angle '(0 0 0) vt)[/color][color=#000000]        [/color][color=#000000]        [/color][color=#000000] [/color]
[color=#000000]    )[/color]
[color=#000000]    (command "._copy" curveBlock "" "non" basePt "non" PT)[/color]
[color=#000000]    (setq LastB (entlast))[/color]
[color=#000000]    (setq LastBList (entget LastB))[/color]
[color=#000000]    (cond ((assoc 66 LastBList) (MyAttAdd LastB (setq n (1- n))))[/color]
[color=#000000]        [/color][color=#000000]  ((equal (cdr (assoc 0 LastBList)) "TEXT")[/color]
[color=#000000]        [/color][color=#000000]   (MyTextAdd LastB (setq n (1- n)))[/color]
[color=#000000]        [/color][color=#000000]  )[/color]
[color=#000000]    )[/color]
[color=#000000]    ;;(entmod (subst (cons 50 an) (assoc 50 LastBList) LastBList))[/color]
[color=#000000]    (command "_.rotate" LastB "" "non" pt (/ (* 180 (- an an0)) pi))[/color]
[color=#000000]    (setq ssadd1 (ssadd LastB ssadd1))[/color]
[color=#000000]    (setq firstPoint (+ firstPoint between))[/color]
[color=#000000]  )[/color]
[color=#000000]  (if lastblock[/color]
[color=#000000]    (command "._erase" lastblock "")[/color]
[color=#000000]    (progn (initget "R  ")[/color]
[color=#000000]        [/color][color=#000000]   (setq trin[/color]
[color=#000000]        [/color][color=#000000]        [/color][color=#000000]  (getstring "\nTo block rotated 180 degrees, input R<Enter>")[/color]
[color=#000000]        [/color][color=#000000]   )[/color]
[color=#000000]        [/color][color=#000000]   (if (or (equal trin "R") (equal trin "r"))[/color]
[color=#000000]        [/color][color=#000000]     (repeat (setq n (sslength ssadd1))[/color]
[color=#000000]        [/color][color=#000000]       (setq LastB (ssname ssadd1 (setq n (1- n))))[/color]
[color=#000000]        [/color][color=#000000]       (setq LastBList (entget LastB))[/color]
[color=#000000]        [/color][color=#000000]       (setq an (cdr (assoc 50 LastBList)))[/color]
[color=#000000]        [/color][color=#000000]       (setq an (+ an pi))[/color]
[color=#000000]        [/color][color=#000000]       (entmod (subst (cons 50 an) (assoc 50 LastBList) LastBList))[/color]
[color=#000000]        [/color][color=#000000]     )[/color]
[color=#000000]        [/color][color=#000000]   )[/color]
[color=#000000]    )[/color]
[color=#000000]  )[/color]
[color=#000000]  (_EndUndo *DOC*)[/color]
[color=#000000]  (princ)[/color]
[color=#000000])[/color]
[color=#000000](defun _StartUndo (*DOC*)[/color]
[color=#000000]  (_EndUndo *DOC*)[/color]
[color=#000000]  (vla-StartUndoMark *DOC*)[/color]
[color=#000000])[/color]
[color=#000000](defun _EndUndo[/color][color=#000000]        [/color][color=#000000](*DOC*)[/color]
[color=#000000]  (if (= 8 (logand 8 (getvar 'UNDOCTL)))[/color]
[color=#000000]    (vla-EndUndoMark *DOC*)[/color]
[color=#000000]  )[/color]
[color=#000000])[/color]

[编程交流] 帮助需要绘制此符号

发表回复

精选推荐