绘制埋头孔

Tharwat · 发表于 2022-7-5 23:39:33

Check this out .

liuhaixin88 · 发表于 2022-7-5 23:42:13

Ok, when pick up the pt2, I can use "PER" to osnap,

In addition, can use "LINE" to draw this ? because……

Tharwat · 发表于 2022-7-5 23:45:35

This ?

[code](defun c:Test (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p) ;; Tharwat 15.May.2014 ;; (if (and (setq 1p (getpoint "\n Specify first point :")) (setq 2p (getpoint "\n Second point :" 1p)) (if (

Tharwat · 发表于 2022-7-5 23:51:36

Now you have two different routines that you can play with to get the best result that you are looking forward , so feel free to modify them .

liuhaixin88 · 发表于 2022-7-5 23:54:13

sorry ,The problem of #15, I can't solve

Tharwat · 发表于 2022-7-5 23:59:37

What is that problem ? You want to add one more line as per the highlighted one in your post # 15 ?

liuhaixin88 · 发表于 2022-7-6 00:01:44

Your routines is draw 6 line , I want 5 line

Tharwat · 发表于 2022-7-6 00:03:02

Just replace the following line of codes from the previous routine in post # 14

copy

(mapcar '_l (list 4p 5p 7p 9p 6p) (list 5p 6p 8p 10p 3p))

[编程交流] 绘制埋头孔

发表回复

精选推荐