satishrajdev 发表于 2022-7-5 17:34:27

Trans函数问题

你好
 
我不经常在我的例程中使用trans-function，所以对理解这个函数的行为非常陌生。
 
我所附的图纸包含两个矩形，在不同的平面上，或者你可以说UCS。我想在那个矩形的质心处画一个圆，我已经标记了那个矩形的质心。
 
有人能提供示例代码的帮助吗？
 
测试Trans。图纸

marko_ribar 发表于 2022-7-5 17:43:44

你想画圆还是（entmake/entmakex）它们？

satishrajdev 发表于 2022-7-5 17:47:41

我想用entmake函数在那个矩形中画圆

marko_ribar 发表于 2022-7-5 17:53:11

未测试：
 
(defun c:cirec ( / s rec cen )
(prompt "\nPick rectangle...")
(setq s (ssget "_+.:E:S" (list '(0 . "LWPOLYLINE") '(90 . 4) '(-4 . "<or") '(70 . 1) '(70 . 129) '(-4 . "or>"))))
(while (or (not s) (not (vl-every '(lambda ( x ) (= (cdr x) 0.0)) (vl-remove-if-not '(lambda ( x ) (= (car x) 42)) (entget (ssname s 0))))))
   (prompt "\nEmpty sel.set or picked LWPOLYLINE not polygonal - has arced segments... Retry selection pick again...")
   (setq s (ssget "_+.:E:S" (list '(0 . "LWPOLYLINE") '(90 . 4) '(-4 . "<or") '(70 . 1) '(70 . 129) '(-4 . "or>"))))
)
(setq rec (ssname s 0))
(setq cen (trans (list (/ (+ (car (cdr (assoc 10 (entget rec)))) (car (cdr (assoc 10 (cdr (member (assoc 10 (cdr (member (assoc 10 (entget rec)) (entget rec)))) (entget rec))))))) 2.0) (/ (+ (cadr (cdr (assoc 10 (entget rec)))) (cadr (cdr (assoc 10 (cdr (member (assoc 10 (cdr (member (assoc 10 (entget rec)) (entget rec)))) (entget rec))))))) 2.0) (cdr (assoc 38 (entget rec)))) rec 0))
(entmake
   (list
   '(0 . "CIRCLE")
   '(100 . "AcDbEntity")
   '(100 . "AcDbCircle")
   (cons 8 "YourLayer") ;; <- change
   (cons 10 (trans cen 0 rec))
   (cons 40 10.0) ;; <- change radius you want
   '(62 . 1) ;; <- change color from red to what you want or remove this line
   (assoc 210 (entget rec))
   )
)
(princ)
)

satishrajdev 发表于 2022-7-5 18:00:17

@marko_ribar：
此处使用trans函数是多余的：
(defun c:ccen ( / e i l s )
   (if (setq s (ssget '((0 . "LWPOLYLINE") (90 . 4) (-4 . "&=") (70 . 1) (-4 . "<NOT") (-4 . "<>") (42 . 0.0) (-4 . "NOT>"))))
       (repeat (setq i (sslength s))
         (setq e (entget (ssname s (setq i (1- i))))
               l (apply 'mapcar (cons '+ (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) e)))
         )
         (entmake
               (list
                  '(000 . "CIRCLE")
                  '(040 . 100.0)
                   (append (mapcar '/ l '(4 4.0 4.0)) (list (cdr (assoc 38 e))))
                   (assoc 210 e)
               )
         )
       )
   )
   (princ)
)

marko_ribar 发表于 2022-7-5 18:04:04

 
李先生，太棒了

satishrajdev 发表于 2022-7-5 18:09:04

 
谢谢你，萨蒂什

Lee Mac 发表于 2022-7-5 18:13:54

 
罗伊，我知道，我只想向OP展示（trans）是如何使用的。。。我倾向于将点从OCS转换为WCS，然后用它们执行所需的计算，如果必要的话（转换），将它们返回OCS。。。除此之外，使用（vlax curve-*）函数总是返回WCS坐标，因此最好使用WCS点和术语进行操作，并编写代码，以应对在生成所需（trans）关系之前无法确定是否依赖OCS的情况。。。

Roy_043 发表于 2022-7-5 18:22:41

satishrajdev 发表于 2022-7-5 18:25:06

 
Lee Sir, That was brilliant
页: [1] 2
查看完整版本: Trans函数问题