Lisp例程偏移线和c

danthecadman · 发表于 2022-7-5 23:54:00

大家好，

我有一份工作，我正在抵消一堆线，我需要改变线的颜色，我抵消了它的颜色，我必须不断重复这一点。

是否有LISP例程可以在特定距离进行偏移，更改偏移线的颜色，然后重复？
我似乎找不到一个专门做这件事的人，而且我的编程能力很低。

BIGAL · 发表于 2022-7-6 00:03:58

你需要先找到一个偏移例程，然后改变颜色，你需要做一个简单的“chprop last”，如果你想在第二个版本中看到彩虹，这个例子将更改为1种颜色

; offset code ..........
; offsets a line
(command "chprop" "L" '' "C" 140 "")
; code again
;2nd version
(setq x 10)
; code ...............
; offsets a line
(command "chprop" "L" '' "C" x "")
(setq x (+ x 10))
; code again...........

pBe · 发表于 2022-7-6 00:15:19

我不太清楚，重复一遍？偏移具有相同距离的对象而不选择其他对象？

提示距离？或者特定距离的特定颜色？

这和比格尔的建议一样简单，但你需要更清楚地了解参数。

satishrajdev · 发表于 2022-7-6 00:23:30

试试这个：-
别忘了根据您的要求更改颜色代码。。。。

copy

(DEFUN C:TEST (/ A B C)
 (VL-LOAD-COM)
 (WHILE
   (SETQ A (CAR (ENTSEL "\nSelect Line to Offset :")))
    (INITGET 1)
    (SETQ B (GETDIST "\nSpecify Offset Distance :"))
    (SETQ C (GETPOINT "\nSpecify Point on Side to Offset :"))
    (VLA-OFFSET
      (VLAX-ENAME->VLA-OBJECT A)
      (POINTSIDE A C)
    )
    (VLA-PUT-COLOR (VLAX-ENAME->VLA-OBJECT (ENTLAST)) [b][color=red]1[/color][/b])   [color=red][b] ;<- SPECIFY COLOR CODE HERE[/b][/color]
 )
 (PRINC)
)
(DEFUN POINTSIDE (OBJ PNT / P1 PA P2)
 (SETQ    P1 (VLAX-CURVE-GETCLOSESTPOINTTO OBJ (TRANS PNT 1 0))
   PA (VLAX-CURVE-GETPARAMATPOINT OBJ P1)
 )
 (IF (EQUAL '(0.0 0.0 0.0)
        (VLAX-CURVE-GETSECONDDERIV OBJ PA)
        1e-8
     )
   (SETQ P1 (VLAX-CURVE-GETPOINTATPARAM OBJ (FIX PA))
     P2 (VLAX-CURVE-GETPOINTATPARAM OBJ (1+ (FIX PA)))
   )
   (SETQ P2 (MAPCAR '+ P1 (VLAX-CURVE-GETFIRSTDERIV OBJ PA)))
 )
 (IF (MINUSP (SIN (- (ANGLE P1 PNT) (ANGLE P2 PNT))))
   (SETQ B (- B))
   (SETQ B (+ B))
 )
)