Topic: Why use _int or (setvar "osmode" 32) click same point, use UCS get error result

[masao]

hi

i have some question

i use getpoint can get coordinate. but use ucs coordinate is error.

if i use _int get intersection point coordinate is error.(use my drawing red line)

but use (setvar "osmode" 32) can get correct point.(but system get point is same)

white line is write in this drawing,use _int and (setvar "osmode" 32) can get same result.

why red line had different result?

Code: [Select]

(defun c:origin(/ e_lst osm yd)

(setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n)))) '("osmode" "cmdecho")))

(defun *error* (msg)

(mapcar 'eval e_lst)

(princ "")

)

 (vl-load-com)

 (setvar "cmdecho" 0)

 (setq osm (getvar "osmode"))

;(setvar "osmode" 32)

(setq yd (getpoint))

(setq yd (trans yd 1 0))

(vl-cmdf "_.ucs" "_origin" (trans yd 0 1))

(setvar "osmode" osm)

(princ)
)
(princ)

[JohnK]

Nice subject line. Very descriptive. You should have no problem getting knowledgable people (who are often very busy because they are knowledgeable) interested in clicking on your thread, try to understand your question, then try to understand your problem, then type up a response to you all because your thread subject line describes your question/problem so accurately and saves them time and effort.  -i.e. Having a good subject line, and question, saves busy people from having to do more work than necessary to help you thus helps you in the end.

I bet if you spent more than 2 minutes formulating your question and problem you will get more help. Busy people are tired of answering "I have a problem", or "layer question", or "code review", or...type questions.

[kdub_nz]

@ masao

I'm not sure what the question was really, but here's what I assume is the answer.

Code - Auto/Visual Lisp: [Select]

1. (defun c:ucsSetOrigin (/ *error* e_lst)
2.   (defun *error* (msg) (mapcar 'eval e_lst) (princ ""))
3.   (setq e_lst
4.          (mapcar (function
5.                    (lambda (n) (list 'setvar n (getvar n)))
6.                  )
7.                  '("osmode" "cmdecho")
8.          )
9.   )
10.  
11.   (setvar "cmdecho" 0)
12.   (setvar "osmode" 32)
13.  
14.   (vl-cmdf "_.ucs" "_origin" (getpoint))
15.  
16.   ;; restore system
17.   (*error* nil)
18.   (princ)
19. )
20. (princ)
21.  

[masao]

Nice subject line. Very descriptive. You should have no problem getting knowledgable people (who are often very busy because they are knowledgeable) interested in clicking on your thread, try to understand your question, then try to understand your problem, then type up a response to you all because your thread subject line describes your question/problem so accurately and saves them time and effort.  -i.e. Having a good subject line, and question, saves busy people from having to do more work than necessary to help you thus helps you in the end.

I bet if you spent more than 2 minutes formulating your question and problem you will get more help. Busy people are tired of answering "I have a problem", or "layer question", or "code review", or...type questions.

Sorry
I just know why click same point has different result.
I test many times but I don’t know this is cad bug or my code error.
Thank you so much.

[masao]

@ masao

I'm not sure what the question was really, but here's what I assume is the answer.

Code - Auto/Visual Lisp: [Select]

1. (defun c:ucsSetOrigin (/ *error* e_lst)
2.   (defun *error* (msg) (mapcar 'eval e_lst) (princ ""))
3.   (setq e_lst
4.          (mapcar (function
5.                    (lambda (n) (list 'setvar n (getvar n)))
6.                  )
7.                  '("osmode" "cmdecho")
8.          )
9.   )
10.  
11.   (setvar "cmdecho" 0)
12.   (setvar "osmode" 32)
13.  
14.   (vl-cmdf "_.ucs" "_origin" (getpoint))
15.  
16.   ;; restore system
17.   (*error* nil)
18.   (princ)
19. )
20. (princ)
21.  

Thank you so much,
I want know click same point has get different result is cad bug or my code error.
because I want to add else function on this code, so must use trans change coordinate.
If this is bug ,I add (setvar "osmode" 32) on code.
Can’t use _int to get point.

[kdub_nz]

@ masao

Does the code I posted give you the result you want ?

[kdub_nz]

I just tried my code again [ with  (setvar "osmode" 32) in the code ] and entered _mid at the command line when selecting the point.

The UCS origin was changed correctly to the point selected.

Regards,

[masao]

I just tried my code again [ with  (setvar "osmode" 32) in the code ] and entered _mid at the command line when selecting the point.

The UCS origin was changed correctly to the point selected.

Regards,

Wait me a few times complete code.

[masao]

I just tried my code again [ with  (setvar "osmode" 32) in the code ] and entered _mid at the command line when selecting the point.

The UCS origin was changed correctly to the point selected.

Regards,

i want fix coordinates origin and let origin change to my click point,but my drawing red lines has error.(maybe red lines has bug)

if i use (osmode 0) want to get intersection must use _int,but use _int get point is get error place on (command "UCS").

because i add else function on code , so use "trans" to get  coordinate.

if cant fix , i just add (osmode 32) on beginning of code.

Code - Auto/Visual Lisp: [Select]

1. (defun c:origin (/ e_lst osm yaundot yaundot_mono
2.                  yaundot_datatype yaundot_line1
3.                  yaundot_line1_datatype yaundot_line2
4.                  yaundot_line2_datatype yaundot_line1_10 px
5.                  py yaundot_line1_11 pxa pya
6.                  yaundot_line2_10 px1 py1 yaundot_line2_11
7.                  pxa1 pya1 pt1 pt2 pt3 pt4 call_word ss i
8.                  ssn ssdata old_sswgyaundot new_ent
9.                 )
10.    (setq
11.       e_lst (mapcar
12.                (function
13.                   (lambda (n) (list 'setvar n (getvar n)))
14.                )
15.                '("osmode" "cmdecho")
16.             )
17.    )
18.    (defun *error* (msg) (mapcar 'eval e_lst) (princ ""))
19.    (vl-load-com)
20.    (setvar "cmdecho" 0)
21.    (setq osm (getvar "osmode"))
22.    (initget "S T W")
23.    (setq yaundot
24.            (getpoint
25.               "\n->origin point [object origin(S)/two lines intersection(T)/world(W)]:"
26.            )
27.    )
28.    (cond
29.       ((= yaundot "S")
30.        (while (= yaundot_mono nil)
31.           (setq yaundot_mono
32.                   (car
33.                      (entsel "\n->select coordinate:"
34.                      )
35.                   )
36.           )
37.           (while (= yaundot_mono nil)
38.              (setq yaundot_mono
39.                      (car (entsel
40.                              "\n->select coordinate:"
41.                           )
42.                      )
43.              )
44.           )
45.           (setq yaundot_datatype
46.                   (cdr
47.                      (assoc
48.                         100
49.                         (reverse
50.                            (entget yaundot_mono)
51.                         )
52.                      )
53.                   )
54.           )
55.           (if (/= yaundot_datatype "AcDbOrdinateDimension")
56.              (progn (setq yaundot_mono nil
57.                           yaundot_datatype nil
58.                     )
59.                     (princ "->not coordinate")
60.              )                                              ;progn
61.           )                                                 ;if
62.        )                                                    ;while
63.        (setq yaundot
64.                (trans
65.                   (cdr (assoc 10 (entget yaundot_mono)))
66.                   0
67.                   1
68.                )
69.        )
70.       )                                                     ;yaundot "S"
71.       ((= yaundot "T")
72.        (while (= yaundot_line1 nil)
73.           (setq yaundot_line1
74.                   (car (entsel "\n->first line:"))
75.           )
76.           (while (= yaundot_line1 nil)
77.              (setq yaundot_line1
78.                      (car (entsel "\n->first line:")
79.                      )
80.              )
81.           )
82.           (setq yaundot_line1_datatype
83.                   (cdr (assoc
84.                           0
85.                           (entget
86.                              yaundot_line1
87.                           )
88.                        )
89.                   )
90.           )
91.           (if (/= yaundot_line1_datatype "LINE")
92.              (progn (setq yaundot_line1 nil
93.                           yaundot_line1_datatype nil
94.                     )
95.                     (princ "->not line")
96.              )                                              ;progn
97.           )                                                 ;if
98.        )                                                    ;while
99.        (while (= yaundot_line2 nil)
100.           (setq yaundot_line2
101.                   (car (entsel "\n->second line:"))
102.           )
103.           (while (= yaundot_line2 nil)
104.              (setq yaundot_line2
105.                      (car
106.                         (entsel "\n->second line:")
107.                      )
108.              )
109.           )
110.           (setq yaundot_line2_datatype
111.                   (cdr (assoc
112.                           0
113.                           (entget
114.                              yaundot_line2
115.                           )
116.                        )
117.                   )
118.           )
119.           (if (/= yaundot_line2_datatype "LINE")
120.              (progn (setq yaundot_line2 nil
121.                           yaundot_line2_datatype nil
122.                     )
123.                     (princ "->not line")
124.              )                                              ;progn
125.           )                                                 ;if
126.        )                                                    ;while
127.        (setq yaundot_line1_10
128.                (cdr (assoc 10
129.                            (entget yaundot_line1)
130.                     )
131.                )
132.        )
133.        (setq px (car yaundot_line1_10))
134.        (setq py (cadr yaundot_line1_10))
135.        (setq yaundot_line1_11
136.                (cdr (assoc 11
137.                            (entget yaundot_line1)
138.                     )
139.                )
140.        )
141.        (setq pxa (car yaundot_line1_11))
142.        (setq pya (cadr yaundot_line1_11))
143.        (setq yaundot_line2_10
144.                (cdr (assoc 10
145.                            (entget yaundot_line2)
146.                     )
147.                )
148.        )
149.        (setq px1 (car yaundot_line2_10))
150.        (setq py1 (cadr yaundot_line2_10))
151.        (setq yaundot_line2_11
152.                (cdr (assoc 11
153.                            (entget yaundot_line2)
154.                     )
155.                )
156.        )
157.        (setq pxa1 (car yaundot_line2_11))
158.        (setq pya1 (cadr yaundot_line2_11))
159.        (setq pt1 (list px py))
160.        (setq pt2 (list pxa pya))
161.        (setq pt3 (list px1 py1))
162.        (setq pt4 (list pxa1 pya1))
163.        (setq
164.           yaundot (trans (inters pt1 pt2 pt3 pt4 [onseg])
165.                          0
166.                          1
167.                   )
168.        )
169.       )                                                     ;yaundot "T"
170.       ((= yaundot "W")
171.        (vl-cmdf "_.ucs" "_world")
172.        (setq yaundot '(0 0 0))
173.       )                                                     ;yaundot "W"
174.    )                                                        ;cond
175.    (setq yaundot (trans yaundot 1 0))
176.    (vl-cmdf "_.ucs" "_origin" (trans yaundot 0 1))
177.    (setq call_word (list-to-string yaundot))
178.    (princ (strcat "\n->origin point:"
179.                   "("
180.                   (car call_word)
181.                   " "
182.                   (cadr call_word)
183.                   " "
184.                   (caddr call_word)
185.                   ")"
186.           )
187.    )
188.    (princ "\->select fix coordinates:")
189.    (setq ss (ssget '((0 . "DIMENSION")
190.                      (-4 . "<OR")
191.                      (70 . 6)
192.                      (70 . 38)
193.                      (70 . 70)
194.                      (70 . 102)
195.                      (70 . 134)
196.                      (70 . 166)
197.                      (70 . 198)
198.                      (70 . 230)
199.                      (-4 . "OR>")
200.                     )
201.             )
202.    )
203.    (vl-cmdf "_.undo" "_begin")
204.    (setvar "osmode" 0)
205.    (setq i 0)
206.    (repeat (sslength ss)
207.       (setq ssn (ssname ss i))
208.       (setq ssdata (entget ssn))
209.       (setq old_sswgyaundot (cdr (assoc 10 ssdata)))
210.       (setq new_ent (entget ssn))
211.       (setq new_ent (subst (cons 10 yaundot)
212.                            (assoc 10 (entget ssn))
213.                            new_ent
214.                     )
215.       )
216.       (entmod new_ent)
217.       (setq i (1+ i))
218.    )                                                        ;repeat
219.    (setvar "osmode" osm)
220.    (vl-cmdf "_.undo" "_end")
221.    (princ)
222. )
223. (princ)
224.  
225.  
226. (defun list-to-string (lst / x l)
227.    (foreach x lst
228.       (setq l (cons
229.                  (vl-string-left-trim
230.                     "("
231.                     (vl-string-right-trim ")"
232.                                           (vl-princ-to-string x)
233.                     )
234.                  )
235.                  l
236.               )
237.       )
238.    )
239.    (reverse l)
240. )
241. (princ)

thank you so much.

if you use my drawing to test,first (setvar "osmode" 0) then to click point use _cen or _int , get point is correct but use "UCS" can't on this point.

but (setvar "osmode" 32) is OK.

(setvar "osmode" 32) and _int has different?

edit by Kerry add code=cadlisp-7 and format code structure

[kdub_nz]

It looks to me like you learnt nothing from the code I posted.

and I'll ask again,
Does the code I posted give you the result you want ?

[ribarm]

It shouldn't be different - osmode 32 = intersection..., but if it's buggy, try to hardcode intersection with (osnap) function and prior set apperture to little bigger number than 6, i.e. 15 would be good...

Code: [Select]

(setq osm (getvar 'osmode))
(setvar 'osmode 32)
(setvar 'apperture 15)
(setq pt (osnap (getpoint) "_int"))
(setvar 'osmode osm)


[masao]

It shouldn't be different - osmode 32 = intersection..., but if it's buggy, try to hardcode intersection with (osnap) function and prior set apperture to little bigger number than 6, i.e. 15 would be good...

Code: [Select]

(setq osm (getvar 'osmode))
(setvar 'osmode 32)
(setvar 'apperture 15)
(setq pt (osnap (getpoint) "_int"))
(setvar 'osmode osm)


OK,maybe is lines bug ,my drawing red lies has SPLINE , use _int get point is correct but use "UCS" can catch SPLINE curve fitting point.

but osmode 32 can't catch SPLINE curve fitting point.

so add (setvar 'osmode 32) on beginning of code is the easiest.

thanks all.

[kdub_nz]

This is like pulling teeth !

[kdub_nz]

@ masao

Has your issue been resolved ?