乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 58|回复： 12

[编程交流] 软选择/比例编辑

[复制链接]
benhubel

16

主题

69

帖子

54

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 17:42:35 | 显示全部楼层 |阅读模式
在Maya中，它被称为软选择。在Blender中，它被称为比例编辑模式。我正在寻找一种工具，可以让我移动夹点，使附近的所有顶点朝同一方向移动。移动量取决于距离选定夹点的距离以及设置衰减的锐度。
 
一些视频让你了解我在说什么：
软选择-
比例编辑-
 
总体思路是，当用户选择夹点时，LISP将搜索最大衰减范围内的所有有效顶点。接下来，当用户移动（或缩放，缩放也会很酷）该夹点时，每个受影响的顶点都会以目标顶点移动距离的百分比向该方向移动，这取决于它与该目标顶点的距离。
 
如果还有一个选项允许代码仅影响作为同一多段线的一部分连接到目标顶点的线，则会获得额外的分数。如果代码被大量注释，那么我可以看到发生了什么，这将获得额外的加分。这个节目太离谱了，我真的很想知道怎么做。
 
 
**编辑**
我不在乎它是否在3d中工作。在使用AutoCAD时，我通常只使用2d。
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 17:52:29 | 显示全部楼层
你好我想我已经使用了直观的变量名，所以我没有对代码进行注释，但是如果你不理解什么，只要问一下。。。我和其他人可能会给你正确的解释。。。
 
  1. (defun c:softselvertmod ( / *error* barycent *adoc* ucsf osm 3dosm ss e ch pl p vl c r v v1 vln eg ex xx p1 p2 rf gr ux uy uc )
  3.  (vl-load-com)
  5.  (defun *error* ( m )
  6.    (if ucsf
  7.      (command "_.UCS" "_P")
  8.    )
  9.    (if osm
  10.      (setvar 'osmode osm)
  11.    )
  12.    (if 3dosm
  13.      (setvar '3dosmode 3dosm)
  14.    )
  15.    (vla-endundomark *adoc*)
  16.    (if m
  17.      (prompt m)
  18.    )
  19.    (princ)
  20.  )
  22.  (defun barycent ( l )
  23.    (mapcar '(lambda ( x ) (/ x (length l))) (list (apply '+ (mapcar 'car l)) (apply '+ (mapcar 'cadr l)) (apply '+ (mapcar 'caddr l))))
  24.  )
  26.  (vla-startundomark (setq *adoc* (vla-get-activedocument (vlax-get-acad-object))))
  27.  (if (= (getvar 'worlducs) 0)
  28.    (progn
  29.      (command "_.UCS" "_W")
  30.      (setq ucsf t)
  31.    )
  32.  )
  33.  (setq osm (getvar 'osmode))
  34.  (if (getvar '3dosmode)
  35.    (setq 3dosm (getvar '3dosmode))
  36.  )
  37.  (prompt "\nPick editable entity for softselvertmod (SPLINE,POLYLINE,MESH,POLYFACE MESH) on unlocked layer...")
  38.  (setq ss (ssget "_+.:E:S:L" '((0 . "*POLYLINE,SPLINE,MESH"))))
  39.  (while (not ss)
  40.    (prompt "\nMissed - empty sel.set... Please pick editable entity for softselvertmod (SPLINE,POLYLINE,MESH,POLYFACE MESH) on unlocked layer...")
  41.    (setq ss (ssget "_+.:E:S:L" '((0 . "*POLYLINE,SPLINE,MESH"))))
  42.  )
  43.  (setq e (ssname ss 0))
  44.  (initget "Move-Stretch Twist Scale-Shrink")
  45.  (setq ch (getkword "\nChoose mode [Move-Stretch/Twist/Scale-Shrink] <Move-Stretch> : "))
  46.  (if (null ch)
  47.    (setq ch "Move-Stretch")
  48.  )
  49.  (cond
  50.    ( (= ch "Move-Stretch")
  51.      (cond
  52.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  53.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  54.          (command "_.UCS" "_E" e)
  55.          (while (< 0 (getvar 'cmdactive))
  56.            (command "")
  57.          )
  58.          (setvar 'osmode 1)
  59.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  60.            (setq vl (cons (trans p 1 0) vl))
  61.            (print (trans p 1 0))
  62.          )
  63.          (setvar 'osmode 0)
  64.          (setq c (barycent vl))
  65.          (prompt "\nPick or specify radius of softselvertmod : ")
  66.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  67.          (setq r (cdr (assoc 40 (entget (entlast)))))
  68.          (entdel (entlast))
  69.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  70.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  71.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  72.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  73.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  74.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  75.          (setq eg (entget e))
  76.          (while (= 5 (car (setq gr (grread t))))
  77.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  78.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  79.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  80.            (entupd (cdr (assoc -1 (entmod ex))))
  81.          )
  82.          (command "_.UCS" "_P")
  83.          (command "_.UCS" "_P")
  84.        )
  85.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  86.          (command "_.CONVERTPOLY" "_L" e)
  87.          (while (< 0 (getvar 'cmdactive))
  88.            (command "")
  89.          )
  90.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  91.          (command "_.UCS" "_E" e)
  92.          (while (< 0 (getvar 'cmdactive))
  93.            (command "")
  94.          )
  95.          (setvar 'osmode 1)
  96.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  97.            (setq vl (cons (trans p 1 0) vl))
  98.            (print (trans p 1 0))
  99.          )
  100.          (setvar 'osmode 0)
  101.          (setq c (barycent vl))
  102.          (prompt "\nPick or specify radius of softselvertmod : ")
  103.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  104.          (setq r (cdr (assoc 40 (entget (entlast)))))
  105.          (entdel (entlast))
  106.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  107.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  108.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  109.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  110.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  111.          (setq eg (entget e))
  112.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  113.          (while (= 5 (car (setq gr (grread t))))
  114.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  115.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  116.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  117.            (entupd (cdr (assoc -1 (entmod ex))))
  118.          )
  119.          (command "_.UCS" "_P")
  120.          (command "_.UCS" "_P")
  121.          (command "_.CONVERTPOLY" "_H" e)
  122.          (while (< 0 (getvar 'cmdactive))
  123.            (command "")
  124.          )
  125.        )
  126.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  127.          (setq v e)
  128.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  129.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  130.          )
  131.          (setq pl (reverse pl))
  132.          (setvar 'osmode 1)
  133.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  134.            (setq vl (cons p vl))
  135.            (print p)
  136.          )
  137.          (setvar 'osmode 0)
  138.          (setq c (barycent vl))
  139.          (prompt "\nPick or specify radius of softselvertmod : ")
  140.          (command "_.SPHERE" "_non" c "\")
  141.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  142.          (entdel (entlast))
  143.          (initget 1 "XY YZ ZX")
  144.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  145.          (cond
  146.            ( (= uc "XY")
  147.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  148.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  149.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  150.            )
  151.            ( (= uc "YZ")
  152.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  153.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  154.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  155.            )
  156.            ( (= uc "ZX")
  157.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  158.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  159.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  160.            )
  161.          )
  162.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  163.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  164.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  165.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  166.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  167.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  168.          (while (= 5 (car (setq gr (grread t))))
  169.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  170.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  171.            (setq v e)
  172.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  173.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  174.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  175.              )
  176.            )
  177.            (entupd e)
  178.            (setq vl vln)
  179.          )
  180.          (command "_.UCS" "_P")
  181.          (command "_.UCS" "_P")
  182.        )
  183.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  184.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  185.          (setvar 'osmode 1)
  186.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  187.            (setq vl (cons p vl))
  188.            (print p)
  189.          )
  190.          (setvar 'osmode 0)
  191.          (setq c (barycent vl))
  192.          (prompt "\nPick or specify radius of softselvertmod : ")
  193.          (command "_.SPHERE" "_non" c "\")
  194.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  195.          (entdel (entlast))
  196.          (initget 1 "XY YZ ZX")
  197.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  198.          (cond
  199.            ( (= uc "XY")
  200.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  201.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  202.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  203.            )
  204.            ( (= uc "YZ")
  205.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  206.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  207.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  208.            )
  209.            ( (= uc "ZX")
  210.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  211.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  212.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  213.            )
  214.          )
  215.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  216.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  217.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  218.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  219.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  220.          (setq eg (entget e))
  221.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  222.          (while (= 5 (car (setq gr (grread t))))
  223.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  224.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  225.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  226.            (entupd (cdr (assoc -1 (entmod ex))))
  227.          )
  228.          (command "_.UCS" "_P")
  229.          (command "_.UCS" "_P")
  230.        )
  231.        ( t ;;; else - it's SPLINE
  232.          (if (assoc 11 (entget e))
  233.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  234.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  235.          )
  236.          (if (getvar '3dosmode)
  237.            (progn
  238.              (setvar '3dosmode 16)
  239.              (setvar 'osmode 0)
  240.            )
  241.            (setvar 'osmode 1)
  242.          )
  243.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  244.            (setq vl (cons p vl))
  245.            (print p)
  246.          )
  247.          (if (getvar '3dosmode)
  248.            (progn
  249.              (setvar '3dosmode 0)
  250.              (setvar 'osmode 0)
  251.            )
  252.            (setvar 'osmode 0)
  253.          )
  254.          (setq c (barycent vl))
  255.          (prompt "\nPick or specify radius of softselvertmod : ")
  256.          (command "_.SPHERE" "_non" c "\")
  257.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  258.          (entdel (entlast))
  259.          (initget 1 "XY YZ ZX")
  260.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  261.          (cond
  262.            ( (= uc "XY")
  263.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  264.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  265.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  266.            )
  267.            ( (= uc "YZ")
  268.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  269.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  270.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  271.            )
  272.            ( (= uc "ZX")
  273.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  274.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  275.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  276.            )
  277.          )
  278.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  279.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  280.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  281.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  282.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  283.          (setq eg (entget e))
  284.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  285.          (while (= 5 (car (setq gr (grread t))))
  286.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  287.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  288.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  289.            (entupd (cdr (assoc -1 (entmod ex))))
  290.          )
  291.          (command "_.UCS" "_P")
  292.          (command "_.UCS" "_P")
  293.        )
  294.      )
  295.    )
  296.    ( (= ch "Twist")
  297.      (cond
  298.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  299.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  300.          (command "_.UCS" "_E" e)
  301.          (while (< 0 (getvar 'cmdactive))
  302.            (command "")
  303.          )
  304.          (setvar 'osmode 1)
  305.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  306.            (setq vl (cons (trans p 1 0) vl))
  307.            (print (trans p 1 0))
  308.          )
  309.          (setvar 'osmode 0)
  310.          (setq c (barycent vl))
  311.          (prompt "\nPick or specify radius of softselvertmod : ")
  312.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  313.          (setq r (cdr (assoc 40 (entget (entlast)))))
  314.          (entdel (entlast))
  315.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  316.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  317.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  318.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  319.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  320.          (setq c (mapcar '+ c (mapcar '* (mapcar '- c (barycent vl)) (list 0.5 0.5 0.5))))
  321.          (initget 2)
  322.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  323.          (if (null rf)
  324.            (setq rf 10.0)
  325.          )
  326.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  327.          (setq eg (entget e))
  328.          (while (= 5 (car (setq gr (grread t))))
  329.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  330.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (+ (angle (trans p1 0 e) (trans p 0 e)) (* (if (equal (distance c p) 0.0 1e-6) (/ (distance '(0.0 0.0 0.0) v) 0.1) (/ (distance '(0.0 0.0 0.0) v) (distance c p))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (list (caddr (trans p 0 e)))) e 0)) vl))
  331.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  332.            (entupd (cdr (assoc -1 (entmod ex))))
  333.          )
  334.          (command "_.UCS" "_P")
  335.          (command "_.UCS" "_P")
  336.        )
  337.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  338.          (command "_.CONVERTPOLY" "_L" e)
  339.          (while (< 0 (getvar 'cmdactive))
  340.            (command "")
  341.          )
  342.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  343.          (command "_.UCS" "_E" e)
  344.          (while (< 0 (getvar 'cmdactive))
  345.            (command "")
  346.          )
  347.          (setvar 'osmode 1)
  348.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  349.            (setq vl (cons (trans p 1 0) vl))
  350.            (print (trans p 1 0))
  351.          )
  352.          (setvar 'osmode 0)
  353.          (setq c (barycent vl))
  354.          (prompt "\nPick or specify radius of softselvertmod : ")
  355.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  356.          (setq r (cdr (assoc 40 (entget (entlast)))))
  357.          (entdel (entlast))
  358.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  359.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  360.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  361.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  362.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  363.          (setq c (mapcar '+ c (mapcar '* (mapcar '- c (barycent vl)) (list 0.5 0.5 0.5))))
  364.          (initget 2)
  365.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  366.          (if (null rf)
  367.            (setq rf 10.0)
  368.          )
  369.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  370.          (setq eg (entget e))
  371.          (while (= 5 (car (setq gr (grread t))))
  372.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  373.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (+ (angle (trans p1 0 e) (trans p 0 e)) (* (if (equal (distance c p) 0.0 1e-6) (/ (distance '(0.0 0.0 0.0) v) 0.1) (/ (distance '(0.0 0.0 0.0) v) (distance c p))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (list (caddr (trans p 0 e)))) e 0)) vl))
  374.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  375.            (entupd (cdr (assoc -1 (entmod ex))))
  376.          )
  377.          (command "_.UCS" "_P")
  378.          (command "_.UCS" "_P")
  379.          (command "_.CONVERTPOLY" "_H" e)
  380.          (while (< 0 (getvar 'cmdactive))
  381.            (command "")
  382.          )
  383.        )
  384.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  385.          (setq v e)
  386.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  387.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  388.          )
  389.          (setq pl (reverse pl))
  390.          (setvar 'osmode 1)
  391.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  392.            (setq vl (cons p vl))
  393.            (print p)
  394.          )
  395.          (setvar 'osmode 0)
  396.          (setq c (barycent vl))
  397.          (prompt "\nPick or specify radius of softselvertmod : ")
  398.          (command "_.SPHERE" "_non" c "\")
  399.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  400.          (entdel (entlast))
  401.          (initget 1 "XY YZ ZX")
  402.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  403.          (cond
  404.            ( (= uc "XY")
  405.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  406.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  407.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  408.            )
  409.            ( (= uc "YZ")
  410.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  411.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  412.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  413.            )
  414.            ( (= uc "ZX")
  415.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  416.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  417.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  418.            )
  419.          )
  420.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  421.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  422.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  423.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  424.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  425.          (setq c (mapcar '+ c (mapcar '* (mapcar '- c (barycent vl)) (list 0.5 0.5 0.5))))
  426.          (initget 2)
  427.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  428.          (if (null rf)
  429.            (setq rf 10.0)
  430.          )
  431.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  432.          (while (= 5 (car (setq gr (grread t))))
  433.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  434.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance c p) 0.0 1e-6) (/ (distance '(0.0 0.0 0.0) v) 0.1) (/ (distance '(0.0 0.0 0.0) v) (distance c p))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  435.            (setq v e)
  436.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  437.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  438.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  439.              )
  440.            )
  441.            (entupd e)
  442.            (setq vl vln)
  443.          )
  444.          (command "_.UCS" "_P")
  445.          (command "_.UCS" "_P")
  446.        )
  447.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  448.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  449.          (setvar 'osmode 1)
  450.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  451.            (setq vl (cons p vl))
  452.            (print p)
  453.          )
  454.          (setvar 'osmode 0)
  455.          (setq c (barycent vl))
  456.          (prompt "\nPick or specify radius of softselvertmod : ")
  457.          (command "_.SPHERE" "_non" c "\")
  458.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  459.          (entdel (entlast))
  460.          (initget 1 "XY YZ ZX")
  461.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  462.          (cond
  463.            ( (= uc "XY")
  464.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  465.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  466.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  467.            )
  468.            ( (= uc "YZ")
  469.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  470.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  471.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  472.            )
  473.            ( (= uc "ZX")
  474.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  475.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  476.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  477.            )
  478.          )
  479.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  480.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  481.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  482.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  483.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  484.          (setq c (mapcar '+ c (mapcar '* (mapcar '- c (barycent vl)) (list 0.5 0.5 0.5))))
  485.          (initget 2)
  486.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  487.          (if (null rf)
  488.            (setq rf 10.0)
  489.          )
  490.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  491.          (setq eg (entget e))
  492.          (while (= 5 (car (setq gr (grread t))))
  493.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  494.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance c p) 0.0 1e-6) (/ (distance '(0.0 0.0 0.0) v) 0.1) (/ (distance '(0.0 0.0 0.0) v) (distance c p))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  495.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  496.            (entupd (cdr (assoc -1 (entmod ex))))
  497.          )
  498.          (command "_.UCS" "_P")
  499.          (command "_.UCS" "_P")
  500.        )
  501.        ( t ;;; else - it's SPLINE
  502.          (if (assoc 11 (entget e))
  503.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  504.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  505.          )
  506.          (if (getvar '3dosmode)
  507.            (progn
  508.              (setvar '3dosmode 16)
  509.              (setvar 'osmode 0)
  510.            )
  511.            (setvar 'osmode 1)
  512.          )
  513.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  514.            (setq vl (cons p vl))
  515.            (print p)
  516.          )
  517.          (if (getvar '3dosmode)
  518.            (progn
  519.              (setvar '3dosmode 0)
  520.              (setvar 'osmode 0)
  521.            )
  522.            (setvar 'osmode 0)
  523.          )
  524.          (setq c (barycent vl))
  525.          (prompt "\nPick or specify radius of softselvertmod : ")
  526.          (command "_.SPHERE" "_non" c "\")
  527.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  528.          (entdel (entlast))
  529.          (initget 1 "XY YZ ZX")
  530.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  531.          (cond
  532.            ( (= uc "XY")
  533.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  534.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  535.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  536.            )
  537.            ( (= uc "YZ")
  538.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  539.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  540.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  541.            )
  542.            ( (= uc "ZX")
  543.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  544.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  545.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  546.            )
  547.          )
  548.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  549.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  550.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  551.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  552.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  553.          (setq c (mapcar '+ c (mapcar '* (mapcar '- c (barycent vl)) (list 0.5 0.5 0.5))))
  554.          (initget 2)
  555.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  556.          (if (null rf)
  557.            (setq rf 10.0)
  558.          )
  559.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  560.          (setq eg (entget e))
  561.          (while (= 5 (car (setq gr (grread t))))
  562.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  563.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance c p) 0.0 1e-6) (/ (distance '(0.0 0.0 0.0) v) 0.1) (/ (distance '(0.0 0.0 0.0) v) (distance c p))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  564.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  565.            (entupd (cdr (assoc -1 (entmod ex))))
  566.          )
  567.          (command "_.UCS" "_P")
  568.          (command "_.UCS" "_P")
  569.        )
  570.      )
  571.    )
  572.    ( (= ch "Scale-Shrink")
  573.      (cond
  574.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  575.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  576.          (command "_.UCS" "_E" e)
  577.          (while (< 0 (getvar 'cmdactive))
  578.            (command "")
  579.          )
  580.          (setvar 'osmode 1)
  581.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  582.            (setq vl (cons (trans p 1 0) vl))
  583.            (print (trans p 1 0))
  584.          )
  585.          (setvar 'osmode 0)
  586.          (setq c (barycent vl))
  587.          (prompt "\nPick or specify radius of softselvertmod : ")
  588.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  589.          (setq r (cdr (assoc 40 (entget (entlast)))))
  590.          (entdel (entlast))
  591.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  592.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  593.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  594.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  595.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  596.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  597.          (setq eg (entget e))
  598.          (while (= 5 (car (setq gr (grread t))))
  599.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  600.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (angle (trans p1 0 e) (trans p 0 e)) (if (equal (distance c p) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance c p))))) (list (caddr (trans p 0 e)))) e 0)) vl))
  601.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  602.            (entupd (cdr (assoc -1 (entmod ex))))
  603.          )
  604.          (command "_.UCS" "_P")
  605.          (command "_.UCS" "_P")
  606.        )
  607.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  608.          (command "_.CONVERTPOLY" "_L" e)
  609.          (while (< 0 (getvar 'cmdactive))
  610.            (command "")
  611.          )
  612.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  613.          (command "_.UCS" "_E" e)
  614.          (while (< 0 (getvar 'cmdactive))
  615.            (command "")
  616.          )
  617.          (setvar 'osmode 1)
  618.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  619.            (setq vl (cons (trans p 1 0) vl))
  620.            (print (trans p 1 0))
  621.          )
  622.          (setvar 'osmode 0)
  623.          (setq c (barycent vl))
  624.          (prompt "\nPick or specify radius of softselvertmod : ")
  625.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  626.          (setq r (cdr (assoc 40 (entget (entlast)))))
  627.          (entdel (entlast))
  628.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  629.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  630.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  631.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  632.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  633.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  634.          (setq eg (entget e))
  635.          (while (= 5 (car (setq gr (grread t))))
  636.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  637.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (angle (trans p1 0 e) (trans p 0 e)) (if (equal (distance c p) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance c p))))) (list (caddr (trans p 0 e)))) e 0)) vl))
  638.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  639.            (entupd (cdr (assoc -1 (entmod ex))))
  640.          )
  641.          (command "_.UCS" "_P")
  642.          (command "_.UCS" "_P")
  643.          (command "_.CONVERTPOLY" "_H" e)
  644.          (while (< 0 (getvar 'cmdactive))
  645.            (command "")
  646.          )
  647.        )
  648.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  649.          (setq v e)
  650.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  651.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  652.          )
  653.          (setq pl (reverse pl))
  654.          (setvar 'osmode 1)
  655.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  656.            (setq vl (cons p vl))
  657.            (print p)
  658.          )
  659.          (setvar 'osmode 0)
  660.          (setq c (barycent vl))
  661.          (prompt "\nPick or specify radius of softselvertmod : ")
  662.          (command "_.SPHERE" "_non" c "\")
  663.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  664.          (entdel (entlast))
  665.          (initget 1 "XY YZ ZX")
  666.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  667.          (cond
  668.            ( (= uc "XY")
  669.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  670.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  671.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  672.            )
  673.            ( (= uc "YZ")
  674.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  675.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  676.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  677.            )
  678.            ( (= uc "ZX")
  679.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  680.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  681.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  682.            )
  683.          )
  684.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  685.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  686.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  687.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  688.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  689.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  690.          (while (= 5 (car (setq gr (grread t))))
  691.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  692.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance c p) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance c p))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  693.            (setq v e)
  694.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  695.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  696.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  697.              )
  698.            )
  699.            (entupd e)
  700.            (setq vl vln)
  701.          )
  702.          (command "_.UCS" "_P")
  703.          (command "_.UCS" "_P")
  704.        )
  705.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  706.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  707.          (setvar 'osmode 1)
  708.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  709.            (setq vl (cons p vl))
  710.            (print p)
  711.          )
  712.          (setvar 'osmode 0)
  713.          (setq c (barycent vl))
  714.          (prompt "\nPick or specify radius of softselvertmod : ")
  715.          (command "_.SPHERE" "_non" c "\")
  716.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  717.          (entdel (entlast))
  718.          (initget 1 "XY YZ ZX")
  719.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  720.          (cond
  721.            ( (= uc "XY")
  722.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  723.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  724.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  725.            )
  726.            ( (= uc "YZ")
  727.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  728.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  729.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  730.            )
  731.            ( (= uc "ZX")
  732.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  733.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  734.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  735.            )
  736.          )
  737.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  738.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  739.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  740.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  741.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  742.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  743.          (setq eg (entget e))
  744.          (while (= 5 (car (setq gr (grread t))))
  745.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  746.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance c p) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance c p))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  747.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  748.            (entupd (cdr (assoc -1 (entmod ex))))
  749.          )
  750.          (command "_.UCS" "_P")
  751.          (command "_.UCS" "_P")
  752.        )
  753.        ( t ;;; else - it's SPLINE
  754.          (if (assoc 11 (entget e))
  755.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  756.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  757.          )
  758.          (if (getvar '3dosmode)
  759.            (progn
  760.              (setvar '3dosmode 16)
  761.              (setvar 'osmode 0)
  762.            )
  763.            (setvar 'osmode 1)
  764.          )
  765.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for softselvertmod - ENTER TO FINISH : "))
  766.            (setq vl (cons p vl))
  767.            (print p)
  768.          )
  769.          (if (getvar '3dosmode)
  770.            (progn
  771.              (setvar '3dosmode 0)
  772.              (setvar 'osmode 0)
  773.            )
  774.            (setvar 'osmode 0)
  775.          )
  776.          (setq c (barycent vl))
  777.          (prompt "\nPick or specify radius of softselvertmod : ")
  778.          (command "_.SPHERE" "_non" c "\")
  779.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  780.          (entdel (entlast))
  781.          (initget 1 "XY YZ ZX")
  782.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  783.          (cond
  784.            ( (= uc "XY")
  785.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  786.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  787.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  788.            )
  789.            ( (= uc "YZ")
  790.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  791.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  792.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  793.            )
  794.            ( (= uc "ZX")
  795.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  796.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  797.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  798.            )
  799.          )
  800.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of softselvertmod : "))
  801.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of softselvertmod : "))
  802.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  803.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  804.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  805.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1))
  806.          (setq eg (entget e))
  807.          (while (= 5 (car (setq gr (grread t))))
  808.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  809.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance c p) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance c p))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  810.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  811.            (entupd (cdr (assoc -1 (entmod ex))))
  812.          )
  813.          (command "_.UCS" "_P")
  814.          (command "_.UCS" "_P")
  815.        )
  816.      )
  817.    )
  818.  )
  819.  (*error* nil)
  820. )
HTH，M.R。
回复

使用道具 举报

benhubel

16

主题

69

帖子

54

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 17:53:27 | 显示全部楼层
啊，是的！虽然它有点笨重，但它肯定有我开始使用所需的一切。非常感谢。
我将研究如何简化界面，以及允许用户更改衰减。我的主要目标是使用某种形式的钟形曲线。
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 18:02:12 | 显示全部楼层
我已经更新了它，包括扭曲选项。。。
 
M、 R。
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 18:06:03 | 显示全部楼层
我已经将其更新为包括缩放收缩选项。。。还添加了（grread while loop）以使视觉上更容易接受。。。
 
M、 R。
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 18:12:18 | 显示全部楼层
代码再次更新，但没有我预期的那么好。。。
回复

使用道具 举报

benhubel

16

主题

69

帖子

54

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 18:16:50 | 显示全部楼层
live adjust使其更为有用。它还帮助我了解它的工作原理，以便我可以更轻松地编辑它。
不过，我对扭曲选项有点困惑。看起来很奇怪。
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 18:22:17 | 显示全部楼层
 
这是因为我已经尝试并成功地从您发布的视频剪辑示例中复制了vulcano教程。。。关键是，最上面的面应该旋转（扭曲）最多，而最接近底部的面旋转（扭曲）最少——所以我在（setq vln…）的公式中包含了这一点。。。但你是对的-在大多数情况下，像我最新的测试，这是奇怪的，但什么。M、 R。
回复

使用道具 举报

benhubel

16

主题

69

帖子

54

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 18:27:27 | 显示全部楼层
我稍微修改了代码，使工作流更快，更易于使用。它不再要求向量的第一个点，现在使用圆半径使用的同一点。
 
有没有一种合理的方法可以根据光标位置动态地改变矢量的方向，就像比例那样？在我看来，向量方向似乎改变了UCS，我不确定这样不断更新UCS是否合适。
 
**编辑**
似乎我在将第一个向量点更改为比例圆心时，在获取比例特征方面遇到了轻微的困难。
 
  1. (defun c:sse () (c:SoftSelectEdit)) ;shortcut to call SoftSelectEdit
  2. (defun c:SoftSelectEdit ( / *error* barycent *adoc* ucsf osm 3dosm ss e ch pl p vl c r v v1 vln eg ex xx p1 p2 rf gr ux uy uc )
  4.  (vl-load-com)
  6.  (defun *error* ( m )
  7.    (if ucsf
  8.      (command "_.UCS" "_P")
  9.    )
  10.    (if osm
  11.      (setvar 'osmode osm)
  12.    )
  13.    (if 3dosm
  14.      (setvar '3dosmode 3dosm)
  15.    )
  16.    (vla-endundomark *adoc*)
  17.    (if m
  18.      (prompt m)
  19.    )
  20.    (princ)
  21.  )
  23.  (defun barycent ( l )
  24.    (mapcar '(lambda ( x ) (/ x (length l))) (list (apply '+ (mapcar 'car l)) (apply '+ (mapcar 'cadr l)) (apply '+ (mapcar 'caddr l))))
  25.  )
  27.  (vla-startundomark (setq *adoc* (vla-get-activedocument (vlax-get-acad-object))))
  28.  (if (= (getvar 'worlducs) 0)
  29.    (progn
  30.      (command "_.UCS" "_W")
  31.      (setq ucsf t)
  32.    )
  33.  )
  34.  (setq osm (getvar 'osmode))
  35.  (if (getvar '3dosmode)
  36.    (setq 3dosm (getvar '3dosmode))
  37.  )
  38.  (prompt "\nPick editable entity for SoftSelectEdit (SPLINE,POLYLINE,MESH,POLYFACE MESH) on unlocked layer...")
  39.  (setq ss (ssget "_+.:E:S:L" '((0 . "*POLYLINE,SPLINE,MESH"))))
  40.  (while (not ss)
  41.    (prompt "\nMissed - empty sel.set... Please pick editable entity for SoftSelectEdit (SPLINE,POLYLINE,MESH,POLYFACE MESH) on unlocked layer...")
  42.    (setq ss (ssget "_+.:E:S:L" '((0 . "*POLYLINE,SPLINE,MESH"))))
  43.  )
  44.  (setq e (ssname ss 0))
  45.  (initget "Move-Stretch Twist Scale-Shrink")
  46.  (setq ch (getkword "\nChoose mode [Move-Stretch/Twist/Scale-Shrink] <Move-Stretch> : "))
  47.  (if (null ch)
  48.    (setq ch "Move-Stretch")
  49.  )
  50.  (cond
  51.    ( (= ch "Move-Stretch")
  52.      (cond
  53.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  54.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  55.          (command "_.UCS" "_E" e)
  56.          (while (< 0 (getvar 'cmdactive))
  57.            (command "")
  58.          )
  59.          (setvar 'osmode 1)
  60.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  61.            (setq vl (cons (trans p 1 0) vl))
  62.            (print (trans p 1 0))
  63.          )
  64.          (setq c (barycent vl))
  65.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  66.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  67.          (setq r (cdr (assoc 40 (entget (entlast)))))
  68.          (entdel (entlast))
  69.          (setq p1 (trans c 0 1)) ;use the circle center point as the vector start point
  70.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  71.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  72.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  73.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  74.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  75.          (setq eg (entget e))
  76.          (while (= 5 (car (setq gr (grread t))))
  77.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  78.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  79.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  80.            (entupd (cdr (assoc -1 (entmod ex))))
  81.          )
  82.          (command "_.UCS" "_P")
  83.          (command "_.UCS" "_P")
  84.        )
  85.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  86.          (command "_.CONVERTPOLY" "_L" e)
  87.          (while (< 0 (getvar 'cmdactive))
  88.            (command "")
  89.          )
  90.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  91.          (command "_.UCS" "_E" e)
  92.          (while (< 0 (getvar 'cmdactive))
  93.            (command "")
  94.          )
  95.          (setvar 'osmode 1)
  96.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  97.            (setq vl (cons (trans p 1 0) vl))
  98.            (print (trans p 1 0))
  99.          )
  100.          (setq c (barycent vl))
  101.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  102.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  103.          (setq r (cdr (assoc 40 (entget (entlast)))))
  104.          (entdel (entlast))
  105.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of softselvertmod : "))
  106.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  107.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  108.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  109.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  110.          (setq eg (entget e))
  111.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  112.          (while (= 5 (car (setq gr (grread t))))
  113.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  114.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  115.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  116.            (entupd (cdr (assoc -1 (entmod ex))))
  117.          )
  118.          (command "_.UCS" "_P")
  119.          (command "_.UCS" "_P")
  120.          (command "_.CONVERTPOLY" "_H" e)
  121.          (while (< 0 (getvar 'cmdactive))
  122.            (command "")
  123.          )
  124.        )
  125.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  126.          (setq v e)
  127.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  128.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  129.          )
  130.          (setq pl (reverse pl))
  131.          (setvar 'osmode 1)
  132.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  133.            (setq vl (cons p vl))
  134.            (print p)
  135.          )
  136.          (setq c (barycent vl))
  137.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  138.          (command "_.SPHERE" "_non" c "\")
  139.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  140.          (entdel (entlast))
  141.          (initget 1 "XY YZ ZX")
  142.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  143.          (cond
  144.            ( (= uc "XY")
  145.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  146.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  147.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  148.            )
  149.            ( (= uc "YZ")
  150.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  151.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  152.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  153.            )
  154.            ( (= uc "ZX")
  155.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  156.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  157.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  158.            )
  159.          )
  160.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  161.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  162.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  163.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  164.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  165.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  166.          (while (= 5 (car (setq gr (grread t))))
  167.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  168.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  169.            (setq v e)
  170.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  171.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  172.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  173.              )
  174.            )
  175.            (entupd e)
  176.            (setq vl vln)
  177.          )
  178.          (command "_.UCS" "_P")
  179.          (command "_.UCS" "_P")
  180.        )
  181.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  182.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  183.          (setvar 'osmode 1)
  184.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  185.            (setq vl (cons p vl))
  186.            (print p)
  187.          )
  188.          (setq c (barycent vl))
  189.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  190.          (command "_.SPHERE" "_non" c "\")
  191.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  192.          (entdel (entlast))
  193.          (initget 1 "XY YZ ZX")
  194.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  195.          (cond
  196.            ( (= uc "XY")
  197.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  198.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  199.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  200.            )
  201.            ( (= uc "YZ")
  202.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  203.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  204.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  205.            )
  206.            ( (= uc "ZX")
  207.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  208.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  209.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  210.            )
  211.          )
  212.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  213.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  214.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  215.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  216.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  217.          (setq eg (entget e))
  218.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  219.          (while (= 5 (car (setq gr (grread t))))
  220.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  221.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  222.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  223.            (entupd (cdr (assoc -1 (entmod ex))))
  224.          )
  225.          (command "_.UCS" "_P")
  226.          (command "_.UCS" "_P")
  227.        )
  228.        ( t ;;; else - it's SPLINE
  229.          (if (assoc 11 (entget e))
  230.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  231.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  232.          )
  233.          (if (getvar '3dosmode)
  234.            (progn
  235.              (setvar '3dosmode 16)
  236.              (setvar 'osmode 0)
  237.            )
  238.            (setvar 'osmode 1)
  239.          )
  240.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  241.            (setq vl (cons p vl))
  242.            (print p)
  243.          )
  244.          (setq c (barycent vl))
  245.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  246.          (command "_.SPHERE" "_non" c "\")
  247.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  248.          (entdel (entlast))
  249.          (initget 1 "XY YZ ZX")
  250.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  251.          (cond
  252.            ( (= uc "XY")
  253.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  254.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  255.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  256.            )
  257.            ( (= uc "YZ")
  258.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  259.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  260.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  261.            )
  262.            ( (= uc "ZX")
  263.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  264.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  265.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  266.            )
  267.          )
  268.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  269.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  270.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  271.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  272.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  273.          (setq eg (entget e))
  274.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  275.          (while (= 5 (car (setq gr (grread t))))
  276.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  277.            (setq vln (mapcar '(lambda ( p ) (mapcar '+ p (mapcar '* v (list (/ (- r (distance c p)) r) (/ (- r (distance c p)) r) (/ (- r (distance c p)) r))))) vl))
  278.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  279.            (entupd (cdr (assoc -1 (entmod ex))))
  280.          )
  281.          (command "_.UCS" "_P")
  282.          (command "_.UCS" "_P")
  283.        )
  284.      )
  285.    )
  286.    ( (= ch "Twist")
  287.      (cond
  288.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  289.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  290.          (command "_.UCS" "_E" e)
  291.          (while (< 0 (getvar 'cmdactive))
  292.            (command "")
  293.          )
  294.          (setvar 'osmode 1)
  295.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  296.            (setq vl (cons (trans p 1 0) vl))
  297.            (print (trans p 1 0))
  298.          )
  299.          (setq c (barycent vl))
  300.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  301.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  302.          (setq r (cdr (assoc 40 (entget (entlast)))))
  303.          (entdel (entlast))
  304.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of SoftSelectEdit : "))
  305.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  306.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  307.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  308.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  309.          (initget 2)
  310.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  311.          (if (null rf)
  312.            (setq rf 10.0)
  313.          )
  314.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  315.          (setq eg (entget e))
  316.          (while (= 5 (car (setq gr (grread t))))
  317.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  318.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (+ (angle (trans p1 0 e) (trans p 0 e)) (* (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (list (caddr (trans p 0 e)))) e 0)) vl))
  319.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  320.            (entupd (cdr (assoc -1 (entmod ex))))
  321.          )
  322.          (command "_.UCS" "_P")
  323.          (command "_.UCS" "_P")
  324.        )
  325.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  326.          (command "_.CONVERTPOLY" "_L" e)
  327.          (while (< 0 (getvar 'cmdactive))
  328.            (command "")
  329.          )
  330.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  331.          (command "_.UCS" "_E" e)
  332.          (while (< 0 (getvar 'cmdactive))
  333.            (command "")
  334.          )
  335.          (setvar 'osmode 1)
  336.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  337.            (setq vl (cons (trans p 1 0) vl))
  338.            (print (trans p 1 0))
  339.          )
  340.          (setq c (barycent vl))
  341.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  342.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  343.          (setq r (cdr (assoc 40 (entget (entlast)))))
  344.          (entdel (entlast))
  345.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of SoftSelectEdit : "))
  346.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  347.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  348.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  349.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  350.          (initget 2)
  351.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  352.          (if (null rf)
  353.            (setq rf 10.0)
  354.          )
  355.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  356.          (setq eg (entget e))
  357.          (while (= 5 (car (setq gr (grread t))))
  358.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  359.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (+ (angle (trans p1 0 e) (trans p 0 e)) (* (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))) (list (caddr (trans p 0 e)))) e 0)) vl))
  360.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  361.            (entupd (cdr (assoc -1 (entmod ex))))
  362.          )
  363.          (command "_.UCS" "_P")
  364.          (command "_.UCS" "_P")
  365.          (command "_.CONVERTPOLY" "_H" e)
  366.          (while (< 0 (getvar 'cmdactive))
  367.            (command "")
  368.          )
  369.        )
  370.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  371.          (setq v e)
  372.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  373.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  374.          )
  375.          (setq pl (reverse pl))
  376.          (setvar 'osmode 1)
  377.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  378.            (setq vl (cons p vl))
  379.            (print p)
  380.          )
  381.          (setq c (barycent vl))
  382.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  383.          (command "_.SPHERE" "_non" c "\")
  384.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  385.          (entdel (entlast))
  386.          (initget 1 "XY YZ ZX")
  387.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  388.          (cond
  389.            ( (= uc "XY")
  390.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  391.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  392.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  393.            )
  394.            ( (= uc "YZ")
  395.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  396.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  397.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  398.            )
  399.            ( (= uc "ZX")
  400.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  401.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  402.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  403.            )
  404.          )
  405.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  406.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  407.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  408.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  409.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  410.          (initget 2)
  411.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  412.          (if (null rf)
  413.            (setq rf 10.0)
  414.          )
  415.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  416.          (while (= 5 (car (setq gr (grread t))))
  417.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  418.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  419.            (setq v e)
  420.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  421.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  422.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  423.              )
  424.            )
  425.            (entupd e)
  426.            (setq vl vln)
  427.          )
  428.          (command "_.UCS" "_P")
  429.          (command "_.UCS" "_P")
  430.        )
  431.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  432.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  433.          (setvar 'osmode 1)
  434.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  435.            (setq vl (cons p vl))
  436.            (print p)
  437.          )
  438.          (setq c (barycent vl))
  439.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  440.          (command "_.SPHERE" "_non" c "\")
  441.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  442.          (entdel (entlast))
  443.          (initget 1 "XY YZ ZX")
  444.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  445.          (cond
  446.            ( (= uc "XY")
  447.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  448.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  449.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  450.            )
  451.            ( (= uc "YZ")
  452.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  453.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  454.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  455.            )
  456.            ( (= uc "ZX")
  457.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  458.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  459.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  460.            )
  461.          )
  462.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  463.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  464.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  465.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  466.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  467.          (initget 2)
  468.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  469.          (if (null rf)
  470.            (setq rf 10.0)
  471.          )
  472.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  473.          (setq eg (entget e))
  474.          (while (= 5 (car (setq gr (grread t))))
  475.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  476.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  477.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  478.            (entupd (cdr (assoc -1 (entmod ex))))
  479.          )
  480.          (command "_.UCS" "_P")
  481.          (command "_.UCS" "_P")
  482.        )
  483.        ( t ;;; else - it's SPLINE
  484.          (if (assoc 11 (entget e))
  485.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  486.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  487.          )
  488.          (if (getvar '3dosmode)
  489.            (progn
  490.              (setvar '3dosmode 16)
  491.              (setvar 'osmode 0)
  492.            )
  493.            (setvar 'osmode 1)
  494.          )
  495.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  496.            (setq vl (cons p vl))
  497.            (print p)
  498.          )
  499.          (setq c (barycent vl))
  500.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  501.          (command "_.SPHERE" "_non" c "\")
  502.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  503.          (entdel (entlast))
  504.          (initget 1 "XY YZ ZX")
  505.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  506.          (cond
  507.            ( (= uc "XY")
  508.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  509.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  510.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  511.            )
  512.            ( (= uc "YZ")
  513.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  514.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  515.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  516.            )
  517.            ( (= uc "ZX")
  518.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  519.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  520.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  521.            )
  522.          )
  523.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  524.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  525.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  526.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  527.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  528.          (initget 2)
  529.          (setq rf (getreal "\nSpecify rotation factor per vector intensity in decimal degrees <10.0> : "))
  530.          (if (null rf)
  531.            (setq rf 10.0)
  532.          )
  533.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  534.          (setq eg (entget e))
  535.          (while (= 5 (car (setq gr (grread t))))
  536.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  537.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (+ (angle (trans p1 0 v) (trans p 0 v)) (* (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (cvunit rf "degree" "radian"))) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))) (list (caddr (trans p 0 v)))) v 0)) vl))
  538.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  539.            (entupd (cdr (assoc -1 (entmod ex))))
  540.          )
  541.          (command "_.UCS" "_P")
  542.          (command "_.UCS" "_P")
  543.        )
  544.      )
  545.    )
  546.    ( (= ch "Scale-Shrink")
  547.      (cond
  548.        ( (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
  549.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  550.          (command "_.UCS" "_E" e)
  551.          (while (< 0 (getvar 'cmdactive))
  552.            (command "")
  553.          )
  554.          (setvar 'osmode 1)
  555.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  556.            (setq vl (cons (trans p 1 0) vl))
  557.            (print (trans p 1 0))
  558.          )
  559.          (setq c (barycent vl))
  560.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  561.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  562.          (setq r (cdr (assoc 40 (entget (entlast)))))
  563.          (entdel (entlast))
  564.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of SoftSelectEdit : "))
  565.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  566.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  567.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  568.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  569.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  570.          (setq eg (entget e))
  571.          (while (= 5 (car (setq gr (grread t))))
  572.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  573.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (angle (trans p1 0 e) (trans p 0 e)) (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))))) (list (caddr (trans p 0 e)))) e 0)) vl))
  574.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  575.            (entupd (cdr (assoc -1 (entmod ex))))
  576.          )
  577.          (command "_.UCS" "_P")
  578.          (command "_.UCS" "_P")
  579.        )
  580.        ( (and (= (cdr (assoc 0 (entget e))) "POLYLINE") (= "AcDb2dPolyline" (cdr (assoc 100 (reverse (entget e)))))) ;;; - it's old heavy 2D POLYLINE
  581.          (command "_.CONVERTPOLY" "_L" e)
  582.          (while (< 0 (getvar 'cmdactive))
  583.            (command "")
  584.          )
  585.          (setq pl (mapcar '(lambda ( p ) (trans (list (car p) (cadr p) (cdr (assoc 38 (entget e)))) e 0)) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e)))))
  586.          (command "_.UCS" "_E" e)
  587.          (while (< 0 (getvar 'cmdactive))
  588.            (command "")
  589.          )
  590.          (setvar 'osmode 1)
  591.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  592.            (setq vl (cons (trans p 1 0) vl))
  593.            (print (trans p 1 0))
  594.          )
  595.          (setq c (barycent vl))
  596.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  597.          (command "_.CIRCLE" "_non" (trans c 0 1) "\")
  598.          (setq r (cdr (assoc 40 (entget (entlast)))))
  599.          (entdel (entlast))
  600.          (setq p1 (getpoint (trans c 0 1) "\nPick or specify start point of vector of SoftSelectEdit : "))
  601.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  602.          (setq v (mapcar '- (trans p2 1 0) (trans p1 1 0)))
  603.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  604.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  605.          (command "_.UCS" "_3P" "_non" p1 "_non" p2 "")
  606.          (setq eg (entget e))
  607.          (while (= 5 (car (setq gr (grread t))))
  608.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  609.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 e) (angle (trans p1 0 e) (trans p 0 e)) (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 e)) (trans p 0 e)))))) (list (caddr (trans p 0 e)))) e 0)) vl))
  610.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) (mapcar '+ '(0.0 0.0) (trans y 0 e)) 1e-6)) vl)) (cons 10 (mapcar '+ '(0.0 0.0) (trans (nth (vl-position (car xx) vl) vln) 0 e))) x)) eg))
  611.            (entupd (cdr (assoc -1 (entmod ex))))
  612.          )
  613.          (command "_.UCS" "_P")
  614.          (command "_.UCS" "_P")
  615.          (command "_.CONVERTPOLY" "_H" e)
  616.          (while (< 0 (getvar 'cmdactive))
  617.            (command "")
  618.          )
  619.        )
  620.        ( (= (cdr (assoc 0 (entget e))) "POLYLINE") ;;; it's 3DPOLYLINE or POLYFACE MESH
  621.          (setq v e)
  622.          (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  623.            (setq pl (cons (cdr (assoc 10 (entget v))) pl))
  624.          )
  625.          (setq pl (reverse pl))
  626.          (setvar 'osmode 1)
  627.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  628.            (setq vl (cons p vl))
  629.            (print p)
  630.          )
  631.          (setq c (barycent vl))
  632.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  633.          (command "_.SPHERE" "_non" c "\")
  634.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  635.          (entdel (entlast))
  636.          (initget 1 "XY YZ ZX")
  637.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  638.          (cond
  639.            ( (= uc "XY")
  640.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  641.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  642.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  643.            )
  644.            ( (= uc "YZ")
  645.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  646.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  647.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  648.            )
  649.            ( (= uc "ZX")
  650.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  651.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  652.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  653.            )
  654.          )
  655.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  656.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  657.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  658.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  659.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  660.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  661.          (while (= 5 (car (setq gr (grread t))))
  662.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  663.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  664.            (setq v e)
  665.            (while (= (cdr (assoc 0 (entget (setq v (entnext v))))) "VERTEX")
  666.              (if (setq xx (vl-member-if '(lambda ( p ) (equal p (cdr (assoc 10 (entget v))) 1e-6)) vl))
  667.                (entupd (cdr (assoc -1 (entmod (subst (cons 10 (nth (vl-position (car xx) vl) vln)) (assoc 10 (entget v)) (entget v))))))
  668.              )
  669.            )
  670.            (entupd e)
  671.            (setq vl vln)
  672.          )
  673.          (command "_.UCS" "_P")
  674.          (command "_.UCS" "_P")
  675.        )
  676.        ( (= (cdr (assoc 0 (entget e))) "MESH") ;;; it's MESH
  677.          (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  678.          (setvar 'osmode 1)
  679.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  680.            (setq vl (cons p vl))
  681.            (print p)
  682.          )
  683.          (setq c (barycent vl))
  684.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  685.          (command "_.SPHERE" "_non" c "\")
  686.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  687.          (entdel (entlast))
  688.          (initget 1 "XY YZ ZX")
  689.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  690.          (cond
  691.            ( (= uc "XY")
  692.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  693.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  694.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  695.            )
  696.            ( (= uc "YZ")
  697.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  698.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  699.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  700.            )
  701.            ( (= uc "ZX")
  702.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  703.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  704.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  705.            )
  706.          )
  707.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  708.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  709.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  710.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  711.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  712.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  713.          (setq eg (entget e))
  714.          (while (= 5 (car (setq gr (grread t))))
  715.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  716.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  717.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  718.            (entupd (cdr (assoc -1 (entmod ex))))
  719.          )
  720.          (command "_.UCS" "_P")
  721.          (command "_.UCS" "_P")
  722.        )
  723.        ( t ;;; else - it's SPLINE
  724.          (if (assoc 11 (entget e))
  725.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 11)) (entget e))))
  726.            (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget e))))
  727.          )
  728.          (if (getvar '3dosmode)
  729.            (progn
  730.              (setvar '3dosmode 16)
  731.              (setvar 'osmode 0)
  732.            )
  733.            (setvar 'osmode 1)
  734.          )
  735.          (while (setq p (getpoint "\nPick or specify main vertex-vertices for SoftSelectEdit - ENTER TO FINISH : "))
  736.            (setq vl (cons p vl))
  737.            (print p)
  738.          )
  739.          (setq c (barycent vl))
  740.          (prompt "\nPick or specify radius of SoftSelectEdit : ")
  741.          (command "_.SPHERE" "_non" c "\")
  742.          (setq r (expt (/ (* 3.0 (vla-get-volume (vlax-ename->vla-object (entlast)))) 4.0 pi) (/ 1.0 3.0)))
  743.          (entdel (entlast))
  744.          (initget 1 "XY YZ ZX")
  745.          (setq uc (getkword "\nChoose option of setting UCS [XY/YZ/ZX] : "))
  746.          (cond
  747.            ( (= uc "XY")
  748.              (setq ux (mapcar '+ c '(1.0 0.0 0.0)))
  749.              (setq uy (mapcar '+ c '(0.0 1.0 0.0)))
  750.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  751.            )
  752.            ( (= uc "YZ")
  753.              (setq ux (mapcar '+ c '(0.0 1.0 0.0)))
  754.              (setq uy (mapcar '+ c '(0.0 0.0 1.0)))
  755.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  756.            )
  757.            ( (= uc "ZX")
  758.              (setq ux (mapcar '+ c '(0.0 0.0 1.0)))
  759.              (setq uy (mapcar '+ c '(1.0 0.0 0.0)))
  760.              (command "_.UCs" "_3P" "_non" c "_non" ux "_non" uy)
  761.            )
  762.          )
  763.          (setq p1 (getpoint '(0.0 0.0 0.0) "\nPick or specify start point of vector of SoftSelectEdit : "))
  764.          (setq p2 (getpoint p1 "\nPick or specify end point of vector of SoftSelectEdit : "))
  765.          (setq v (mapcar '- (setq p2 (trans p2 1 0)) (setq p1 (trans p1 1 0))))
  766.          (setq v1 (mapcar '/ v (list (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v) (distance '(0.0 0.0 0.0) v))))
  767.          (setq vl (vl-remove-if-not '(lambda ( x ) (< (distance c x) r)) pl))
  768.          (command "_.UCS" "_ZA" "_non" (trans p1 0 1) "_non" (trans p2 0 1) "")
  769.          (setq eg (entget e))
  770.          (while (= 5 (car (setq gr (grread t))))
  771.            (setq v (mapcar '* v1 (list (car (cadr gr)) (car (cadr gr)) (car (cadr gr)))))
  772.            (setq vln (mapcar '(lambda ( p ) (trans (append (mapcar '+ '(0.0 0.0) (polar (trans p1 0 v) (angle (trans p1 0 v) (trans p 0 v)) (if (equal (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)) 0.0 1e-6) 0.0 (/ (distance '(0.0 0.0 0.0) v) (distance (mapcar '+ '(0.0 0.0) (trans p1 0 v)) (trans p 0 v)))))) (list (caddr (trans p 0 v)))) v 0)) vl))
  773.            (setq ex (mapcar '(lambda ( x / xx ) (if (setq xx (vl-member-if '(lambda ( y ) (equal (cdr x) y 1e-6)) vl)) (cons (car x) (nth (vl-position (car xx) vl) vln)) x)) eg))
  774.            (entupd (cdr (assoc -1 (entmod ex))))
  775.          )
  776.          (command "_.UCS" "_P")
  777.          (command "_.UCS" "_P")
  778.        )
  779.      )
  780.    )
  781.  )
  782.  (*error* nil)
  783. )
回复

使用道具 举报

benhubel

16

主题

69

帖子

54

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 18:32:27 | 显示全部楼层
此外，我不确定选择多个主顶点的能力是否正常。只有一个似乎效果很好。我可能倾向于完全放弃多个vert功能，除非你认为它可以做得更顺利。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 05:00 , Processed in 0.717128 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表