01).You upload a sample Drawing.dwg (as old-version Acad2010 or Acad2018)
02).User select one point outside from surface3d.
03).-- You fill here --
....
31)....
Hello everyone.
Im working on some script whitch be able to wrap a plane onto a curved shaped surface. Something similar to "shrikwrap" modifier in Blender. I try to simulate the natural effect of a lath bending on bottle neck. If the direction of bending a board is collinear with the main curvature its tend to twist.
(1 . "point $-1 -1 $-1 27.2409519097224404 13.84081836339358773 0 #") (1 . "point $-1 -1 $-1 27.2409519097224404 41.68038048964594822 0 #")
Code - Text: [Select]
(defun foo ( acis_data ) ( (lambda ( bar ) (mapcar '(lambda ( x ) (if (eq 1 (car x)) (cons 1 (bar (cdr x))) x)) acis_data ) ) (lambda ( string ) (vl-list->string (mapcar '(lambda ( x ) (if (eq 32 x) x (boole 6 95 x))) (vl-string->list string) ) ) ) ) ) (defun c:doit2 () (foo (entget (car(entsel)))) )