Here, try this and check attached *.csv - it's little different than your *.xls, but if you run the routine with step-by-step selections you may get desired result... The process is the same as Lnam.lsp posted here :Thank for help.
http://www.autolisp.com/forum/threads/892-Help-me-edit-complete-my-lisp!/page2&p=#11Code - Auto/Visual Lisp: [Select]
) ) ;; Get Dynamic Block Property Value - Lee Mac ;; Returns the value of a Dynamic Block property (if present) ;; blk - [vla] VLA Dynamic Block Reference object ;; prp - [str] Dynamic Block property name (case-insensitive) ) ) (defun c:LNam-blk ( / ch dim ent f fname i loop pt ptdimlst pttxtlst s ss ssdim sstxt std std-m std-m-r std1 std1-m std1-m-r std2 std2-m std2-m-r stddlst stdmemb stl stt1 stt1-d stt2 stt2-d sttd sttn sttn1 sttn2 stxts txt ) (while loop ) (cond ) ) ) ) (prompt "\nPick first dimension-dynamic block that has free end - starting dimension-dynamic block without starting end specification") ) (while std (setq std-a (polar (cdr (assoc 10 (entget std))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std) "Angle1") (vlax-get-property (vlax-ename->vla-object std) 'Rotation)) std-m)) ) ) ) (setq std1-a (polar (cdr (assoc 10 (entget std1))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std1) "Angle1") (vlax-get-property (vlax-ename->vla-object std1) 'Rotation)) std1-m)) ) ) (setq std2-a (polar (cdr (assoc 10 (entget std2))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std2) "Angle1") (vlax-get-property (vlax-ename->vla-object std2) 'Rotation)) std2-m)) ) ) ) ) ) ) ) ) )
M.R.
Thank for help.
When I used coincides with the LMAN (Layer State Mannager) command (Autocad 2014). Please, help me change to other command.
Thank you very much.
P / S: You can fix the sort by number
1
2
3
....
then to
1.1
1.2
1.3
.....
been is not?
instead
1
1.1
1.2
1.3
2
3
Means:
Sort an integer first then up to the number of Odd after.
Please, help me.
Thank you very much.
Oh, thank you very much.Thank for help.
When I used coincides with the LMAN (Layer State Mannager) command (Autocad 2014). Please, help me change to other command.Thank for help.
When I used coincides with the LMAN (Layer State Mannager) command (Autocad 2014). Please, help me change to other command.
Routine starts with : LNam-blk - it's totally different than LMAN, I've checked it in A2014 and both things work fine...Thank you very much.
P / S: You can fix the sort by number
1
2
3
....
then to
1.1
1.2
1.3
.....
been is not?
instead
1
1.1
1.2
1.3
2
3
Means:
Sort an integer first then up to the number of Odd after.
Please, help me.
Populating EXCEL *.csv file is done in relation with branching in reference DWG... If you perform routine command step-by-step, selecting desired branch/es and starting dimension-dynamic block and then continue with the same procedure answering "Yes" for question to continue populating, you'll get at the end what you wanted without sorting, just answer in the end "No"... Otherwise, I am afraid, if you are not patient and you want to process all blocks in singe shot, you may get *.csv like I posted and you'll have to do sorting inside EXCEL, which is what I strongly suggest, and that is the best way of managing data to be in desired form...Thank you very much.
You're very welcome, minhphuong_humg...
M.R.Thank you very much.
P / S: You can fix the sort by number
1
2
3
....
then to
1.1
1.2
1.3
.....
been is not?
instead
1
1.1
1.2
1.3
2
3
Means:
Sort an integer first then up to the number of Odd after.
Please, help me.
Populating EXCEL *.csv file is done in relation with branching in reference DWG... If you perform routine command step-by-step, selecting desired branch/es and starting dimension-dynamic block and then continue with the same procedure answering "Yes" for question to continue populating, you'll get at the end what you wanted without sorting, just answer in the end "No"... Otherwise, I am afraid, if you are not patient and you want to process all blocks in singe shot, you may get *.csv like I posted and you'll have to do sorting inside EXCEL, which is what I strongly suggest, and that is the best way of managing data to be in desired form...Thank you very much.
You're very welcome, minhphuong_humg...
M.R.
Here, try this and check attached *.csv - it's little different than your *.xls, but if you run the routine with step-by-step selections you may get desired result... The process is the same as Lnam.lsp posted here :
http://www.autolisp.com/forum/threads/892-Help-me-edit-complete-my-lisp!/page2&p=#11Code - Auto/Visual Lisp: [Select]
) ) ;; Get Dynamic Block Property Value - Lee Mac ;; Returns the value of a Dynamic Block property (if present) ;; blk - [vla] VLA Dynamic Block Reference object ;; prp - [str] Dynamic Block property name (case-insensitive) ) ) (defun c:LNam-blk ( / ch dim ent f fname i loop pt ptdimlst pttxtlst s ss ssdim sstxt std std-m std-m-r std1 std1-m std1-m-r std2 std2-m std2-m-r stddlst stdmemb stl stt1 stt1-d stt2 stt2-d sttd sttn sttn1 sttn2 stxts txt ) (while loop ) (cond ) ) ) ) (prompt "\nPick first dimension-dynamic block that has free end - starting dimension-dynamic block without starting end specification") ) (while std (setq std-a (polar (cdr (assoc 10 (entget std))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std) "Angle1") (vlax-get-property (vlax-ename->vla-object std) 'Rotation)) std-m)) ) ) ) (setq std1-a (polar (cdr (assoc 10 (entget std1))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std1) "Angle1") (vlax-get-property (vlax-ename->vla-object std1) 'Rotation)) std1-m)) ) ) (setq std2-a (polar (cdr (assoc 10 (entget std2))) (+ (LM:getdynpropvalue (vlax-ename->vla-object std2) "Angle1") (vlax-get-property (vlax-ename->vla-object std2) 'Rotation)) std2-m)) ) ) ) ) ) ) ) ) )
M.R.